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PREFACE 



This manual provides the information necessary to program the 
Perkin-Elmer High Performance Magnetic Tape System (HPMTS) 125. 
The raanual is written for the experienced hardware programmer as 
an aid to writing driver routines. 

Chapter 1 gives general details concerning possible 
configurations, operating controls, and indicators. Chapter 2 
contains specific programming information including data formats, 
instructions, status and command bytes, and programming 
sequences. Appendix A includes four sample programs and 
flowcharts. 



The following manuals 
publication; 



can be used in conjunction with this 



MANUAL TITLE 



PUBLICATION 
N0HBE6 



Extended Selector Channel (ESELCH) Programming 
Manual 



29-529 



High Performance Tape Drive (HPTD) 

Controller Installation and Maintenance Manual 

32-git Systems User Documentation Summary 



U7-028 
50-003 



For further information on the contents of all Perkin-Elraer 
32-bit manuals, see the 32-Bit Systems User Documentation 
Summary. 
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CHAPTER 1 
GENERAI 



1.1 IKTRODUCTIOH 

This manual describes the functional characteristics and 
programming aspects of the Perltin-Elmer High Performance Magnetic 
Tape System (HPMTS) 125, which operates at 125 inches per second 
(ips) = 3.18 meters per second, in densities of 800, 1600, and 
6250 bytes per inch (bpi), nine track format. Sample programs 
are included in the appendixes of this manual. 



1.2 CONFIGUBATION 

The HPMTS 125 can be used with Perkin-Elmer 32-bit processors and 
operated with a selector channel (SELCH). Product numbers and 
part numbers for the configuration of the magnetic tape system 
are shown in Table 1-1. 



TABLE 1-1 HPMTS DESCRIPTION 



PRODUCT 
NUMBER 

M64-500 



M64-501 



M64-50a 



M64-505 



NAME 
HPTD 125 



HPTD 125 



HPTD 125E 



HPTD 125E 



PART 
NUMBER 

02-791F01 



02-791F02 



02-791F03 



02-791F04 



DESCRIPTION 

Tri-density, high speed mag- 
netic tape system; consists of 
125 ips transport, formatter, 
controller, system cabinet, 
and cables; 115 VAC, 60 Hz. 

Same as M6U-500, except 230 
VAC, 50 Hz. 

Expansion 125 ips transport 
and cabinet; 115 VAC, 60 Hz. 

Same as M6U-504, except 230 
VAC, 50 Hz. 
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1.3 OPEBATIMG CONTROLS AND INDICATORS 

The HPMTS 125 may contain either one of two functionally 
equivalent transports, one provided by the Storage Technology 
Corporation (STC) or one provided by the TELEX Corporation. 
Although functionally equivalent/ each transport contains a 
uniquely arranged set of front panel controls and indicators. 
Figure 1-1 shows the controls and indicators for each transport. 
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Figure 1-1 HPMTS Controls and Indicators 
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1.3.1 Description of STC Controls and Indicators 

The STC control panel is located on the rightmost side of the 
magnetic tape system. To the right of the control panel are the 
easy touch controls indicated by a series of lines. To the left 
of the control panel are colored lights of green^ red, orange/ 
and white that indicate the status of the magnetic tape system. 
A description of each control and indicator follows. 



POWER 



This easy touch control is used to supply 
power to the magnetic tape system. The green 
indicator lamp is lit when power is on and it 
remains lit until power is shut down, by 
another touch of this control. 



FILE 
PROTECT 



This red indicator lamp indicates that the 
magnetic tape that has been mounted and loaded 
is file protected. This tape may be read but 
cannot be written to. 



LOAD 
REWIND 



The LOAD REWIND control is used to load or 
rewind a tape* Once a tape has been properly 
mounted on the STC magnetic tape system, a 
slight touch to the LOAD REWIND control will 
cause the tape to thread and load. Once the 
tape is positioned at the load point 
(reflector tape on the tape), the orange 
indicator lamp will be lit. 



The REWIND control is a momentary action 
control which is enabled only in the offline 
mode. The tape will rewind with a touch of 
this control. On reaching the beginning of 
tape (BOT) reflector, the rewind action will 
cease and the load sequence is entered. The 
EOT tab overshoots the phototab sensor, moves 
forward, and stops at load point. 



ONLINE 



The ONLINE control is a momentary action 
control which is used to put the transport in 
the ONLINE mode. At a touch of this control, 
the green status lamp will light and the 
system can now accept external commands, 
provided the system is READY and SELECTED. 



SELECT 



This red indicator lamp is lit to indicate 
that the drive has been selected by the host 
processor and is online. 
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BESET 



RESET is a momentary switch which clears all 
manual commands that have been entered through 
the control panel. Touching the RESET switch 
when the transport is ONLINE sets the unit 
OFFLINE. If a problem occurs during the load 
operation, this indicator lamp will blink on 
and off until the system is reset and cleared. 



UNLOAD 



SOFTWARE 
SELECT 



UNLOAD is a momentary switch that, when 
depressed, causes the tape to unload. The 
tape will unload from the load point only. 

This switch is nonfunctional. 



GCR WRITE 



The GCR WRITE indicator lamp is lit when the 
DENSITY SELECT control has been depressed 
resulting in the selection of group coded 
recording (GCR) density mode. When the orange 
indicator lamp is lit, data is written to and 
read from the tape at 6250 bytes per inch 
(bpl). 



PE 



The PE indicator lamp is lit to indicate that 
the phase encoded (PE) density mode has been 
selected through the DENSITY SELECT control. 
Tata is written to and/or read from the tape 
at 1600 bpi. 



NRZI 



The NRZI indicator lamp is lit to indicate 
that nonreturn zero (NRZI) density mode has 
been selected through the DENSITY SELECT 
control. Data is written to and/or read from 
the tape at 800 bpi. 



DENSITY 
SELECT 



The DENSITY S 
switch that is 
of data trans 
written. The 
compatible with 
to the DENSITY 
density, or 625 
will select P 
depressions wil 



ELECT control is a momentary 
used to select the desired mode 
fer that is to be read or 
density of data read should be 
the data on the tape. A touch 
SELECT control will select GCR 

bpi. Two control depressions 
E or 1600 bpi. Three control 

1 select NRZI or 800 bpi. 



1.3.2 Description of TELEX Controls and Indicators 

The TELEX control panel is located on the leftmost side of the 

magnetic tape system. Control keys are indicated in white. 

Indicator status lamps are the red, white and green lamps 
adjacent to the control keys. 
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LOAD CHECK 



BESET 



The red status lamp indicates that a problem 
has been encountered in the loading of this 
tape. All action will cease and the lamp will 
remain lit until the system is BESET. 

This control is used to reset the tape drive 
system. It clears all status and puts the 
system in the offline mode. 



SELECTED 



LOAD 
POINT 



LOAD 
BEWIND 



This white status lamp indicates that the 
drive has been selected by the host processor 
and is in use or ready to be used. 

This white status lamp indicates that the 
tape is currently at load point (BOT reflector 
on the tape). Once the tape is moved off load 
point, the lamp is no longer lit. 

This switch has a dual purpose. It is used 
to load or rewind a tape. Once a tape has 
been properly mounted on the magnetic tape 
system, a touch to the LOAD REWIND control 
will cause the tape to thread and load to the 
load point. Once the tape is positioned at 
load point, the white status lamp will be lit. 



The BEWIND control 
control which is e 
mode. With a depres 
control, the tape wi 
speed. On reading 
rewind action ceases 
automatically entere 
the phototab senso 
at load point. 



is a momentary action 
nabled only in the offline 
slon of the LOAD REWIND 
11 rewind at the specified 

the BOT reflector, the 

and the load sequence is 

d. The BOT tab overshoots 

r, moves forward and stops 



ON 
LINE 



The green status lamp is lit once the ON LINE 
control has been depressed. The transport is 
in the online mode. The system can now accept 
external commands provided the system is READY 
and SELECTED. 



ON 
LINE 

DENSITY 



This control is used to place the magnetic 
tape system in the online mode. 

The DENSITY control is used to select a 
desired density for writing to and/or reading 
from the tape. The density of the data read 
should be compatible with the density of the 
tape. Three density modes are available: 



NRZI or 800 bpi, 
PE or 1600 bpi, or 
GCB or 6250 bpi. 
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Nazi 



The NRZI white indicator lamp indicates that 
NRZI mode or 800 bpi has been selected through 
the DENSITY control. Data is to be written to 
and/or read from the tape at 800 bpi. 



PS 



The PE white indicator lamp indicates that PE 

density mode has been selected through the 

DENSITY switch. Data is to be written to 
and/or read from the tape at 1600 bpi. 



GCR 



The GCR white indicator lamp indicates that 
GCR density mode has been selected through the 
DENSITY switch. Data is written to and/or 
read from the tape at 6250 bpi. 



FILE 
PROTECT 



The FILE PROTECT indicator lamp is lit when 
the tape currently mounted is file protected. 
The tape may be read, but cannot be written 
to. 



UNLOAD 



The UNLOAD control is a momentary switch which 
when depressed causes the tape to unload. The 
tape must be positioned at load point for this 
action to occur. 



POWER 
ON 



The POWER ON white indicator lamp indicates 
that power has been applied to the magnetic 
tape system. This lamp remains lit during use 
until the system is shut down. 



POWER 
ON 



The POWER ON control is used to supply power 
to the magnetic tape system. When the system 
is not in use, this switch will also shut down 
power. 



1.4 PREVENTIVE MAINTENANCE 

It is recommended that the tape heads and capstan be cleaned 
after every eight hours of operation. Refer to the High 
Performance Tape Drive (HPTD) Controller Installation and 
Haintenance Manual for other maintenance guidelines. 

1.5 MAGNETIC TAPE LOADING AND UNLOADING 

Refer to the High Performance Tape Drive (HPTD) Controller 
Installation and Maintenance Manual for loading and unloading 
procedures. 
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CHAPTER 2 
HIGH PEBFORMANCE MAGNETIC TAPE SYSTEM (HPMTS) 125 

PROGRAMMING 



2.1 INTRODUCTION 

This chapter describes the instructions for programming the HPMTS 
125. Information on data formats, I/O programming instructions, 
status and command bytes, programming sequence, error recovery, 
interrupts, initialization, and drive addresses is presented. 

2.2 DATA FORMATS 

One of three tape data formats applies, depending on whether the 
HP»ITS 125 is operated in the 800 bpi nonreturn to zero (NRZI), 
1600 bpi phase encoded (PE), or 6250 bpi group coded recording 
(GCR) density mode. Figure 2-1 shows the data format for each of 
these modes. 



2.3 I/O PROGRAMMING INSTRUCTIONS 

The following instructions may be used: 

• Output Command (OC or OCR) - This instruction is used to send 
a command byte to the magnetic tape controller. 

• Sense Status (SS or SSP) - This instruction reads the status 
byte of the magnetic tape controller. 

• Write Halfword (WH or WHR) - This instruction is used to 
output or write a data halfword from the processor to the 
"agnetic tape controller when operating on the MUX bus. 



m 



Read Halfword (RH or RHR) - This instruction is used to input 
or read a data halfword from the magnetic tape controller to 
the processor when operating on the MUX bus. 

Autoload (AL) - This instruction is used to read data bytes. 
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a. Nonreturn to Zero (NRZI) Tape Format 
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b. Phase Encoded (PE) Tape Format 
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c. Group Coded Recording (GCB) Tape Format 



Figure 2-1 Data Formats 
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2. a STATUS AND COMMAND BYTES 

Table 2-1 contains the HPMTS 125 status and command byte data, 

TABLE 2-1 HPMTS 125 STATUS AND COMMAND BYTES 



BIT NUMBER 
8 I 9 I 10 I 11 I 12 I 13 1 ia I 15 



INSTRUCTION 
STATUS 



ERF I TERR I EOT I NMTnI BSY | EX | TMS | DU 



COMMAND 1 



I 



I 



I I BYTE I 

I DENSITY I SE- | 
I I SELECT I LECT | COMMAND SELECT 

DIS I EN I 

I I DS1 I DSD I 1 



X I X I X 



COMMAND 



I BYTE I 
I SE- I 
I LECT I 



COMMAND SELECT | LECT | MUX ERROR 

X|X|X|X| 0|X|X|X 



2.4.1 Status Byte Description 

The Perkin-Elmer system controller returns a status byte to the 
processor as a result of the sense status instruction. Bit 
descriptions follow: 



ERR 



TERR 



Error 

Set if any dead tracks are set in status 
halfword. Set if any bit in EKB1 of the 
status halfword is set. 

Transfer Error 

Set by the following transfer errors: 



Overrun - is set during a write operation 
when transfer request/transfer acknowledge 
(TREQ/TRAK) responses .are not within timing 
requirements, or a STOP was not sent. 
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During a read operation when the mag tape 
controller (MTC) is not accepting data 
characters at a high enough rate, or if any 
information remains in the formatter 
controller unit (FCU) read buffer when the 
mag tape unit (MTU) is in the interrecord 
gap (IRG). Bit 8 - ERE. 

Buffer - indicates that an even parity data 
character was detected on the MTC bus 
during a read or write operation. Data 
transmission is not halted for this error. 

FCU offline - is set in diagnostic mode 
only. 

Write underflow (WUNFLW) - is set during a 
write operation indicating a STOP was sent 
to the formatter, but data was either 
detected at the MTC output buffer or the 
processor was trying to write data to the 
MTC without initiating a new command 
sequence. 

Early read termination - selector channel 
(SELCH) read operation was terminated too 
early indicating SELCH read buffer 
parameters were not set up correctly. 

Even parity byte - an even parity byte was 
detected during a read operation. 



ET End of Tape Status 



Set when tape is positioned at the physical 
reflector markers; beginning of tape (BOT) or 
end of tape (EOT). 



NMTN No Motion 



Set when the tape motion has stopped and the 
FCU is in the idle state (ready to accept any 
valid command). All output commands given 
when NMTN=0 are ignored. 



BSY Busy 



Set when MTC is ready for a SELCH transfer* 
Reset when MTC is not ready for a SELCH 
transfer. 
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EX Examine 



Set when one or more of the high order bits 
(EER, TERR, NMTN) have been set. Hill 
interrupt the processor if interrupts are 
enabled. 



THS Tape Mark Status 



Set when tape is positioned on a tape mark 
block. Reset at the next motion command or 
clear. 



DU Device Unavailable 

Set when ECU is offline. 

NOTES 

1. ERR and TERR bits are deferred 
until NMTN is set (NMTN=1). 

2. The status byte reflects the 
current status of the selected 

MTU (last MTU addressed). 

3. Each MTU has its own individual 
device address. If an 
operation on the MTU is in 
progress, no I/O instruction 
should address the other MTU or 
the operation in progress on 
the first MTU is aborted. 

2.4.2 Status Halfwords 

When a read halfword has been given to the MTC, a halfword of 
status consisting of error MUX bytes (EMB) and MTC status will be 
transferred to the user software. Depending upon which EMB has 
been requested, the halfword status will be as shown in Tables 
2-2 or 2-3 for STC or TELEX drives, respectively. Note that bits 
0-8 reflect the EMP from the ECU while bits 9-15 are a 
combination of ECU status and MTC status. The upper bits were 
added to help decipher status byte information and ECU status. 
Bit definitions are listed in Table 2-4. 

For a further definition of the status halfword bits, refer to 
the High Performance Tape Drive (HPTD) Controller Installation 
and Maintenance Manual. 
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TABLE 2-2 STORAGE TECHNOLOGY CORPORATION (STC) MAGNETIC TAPE DRIVE STATUS HALFWORD 



1 1 EEHOH NHX STATUS BITS | DPPEB STATUS BITS 


1 1 

1 DATA BOS 1 1 1 1 2 | 3 | U | 5 | 6 | 7 | 8 | 9 | 10 | 1 1 | 12 | 13 | 11 1 15 

1 === = ===== = = = ==;====== = ====:====:= =5:===== = = === ======: === == =========== = = = == = == ====== = = = = ==== = = = = = = = ==== = === =========== ======= ==- = = 

1 EBBOB KUX 1 1 1 1 1 1 1 II 1 1 1 1 1 1 1 
1 BYTE |D|DiD|D|DiDiD|D|D iSHil j SSC j BLOCK {ODD j SHITE | BC3 i BEAD 
1 (EKB 0)|T|T|T|T|T|T|T|T|T| | I IBYTE lONDER |PARITY| OVBN 
1 DEAD TRACKS 1 7|6|5|l4|3|2|1|0|P! ! I 1 jFLOW | | 


1 EMB 1 1 WTH 1 OCE j PART | BTE | ) END | VEL | DIAG.| CEC | 

I HEAD/HHITE j I j 1 1 NOT | DATA | | HODE | j Sa«e as above 

1 EBBOES 1 CHK 1 | BEC | | USED {CHECK | EEB | LTCH | EEB | 


IEHB2 ID ID ID ID ID ID ID ID 1 | 
1 AID BITS |7|e|S|U|3|2|1|0| I 


1 EKB 3 1 EOT 1 BOT | WET | FILE I BKHD I HI j BDY | ON- | WBT | 

1 DRIVE SENSE 1 1 1 1 1 f 1 t HHE | | Sane as above 

1 BYTE 1 STAT | STAT |INHB | PEOT | STAT | DEN | STAT | STAT | STAT | 


1 EHB 4 1 CEC 1 CRC | CEC | CEC | CHC | CRC | CEC | CRC | CRC | 

1 CEC-F BYTE |7 |e |5 |il |3 |2 |1 |0 IP I Sane as above 

1 1 1 1 1 1 1 1 1 1 1 


1 EHB 5 1 Reserved | 


1 EBB 6 1 Reserved 1 Same as above 


1 EHB 7 1 Beserved 1 



TABLE 2-3 TELEX MAGNETIC TAPE DRIVE STATOS HALFHORD 



ui 
o 
I 

o 
o 
\o 

"i 
o 
o 

a 
o 
o 



1 1 EBBOB HOX STATUS BITS \ OPPFR STATUS BITS 


1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

1 DATA BUS 10 1 1 1 2 j 3 \ H j 5 | 6 | 7 | 8 | 9 | 10 | 1 1 | 12 | 13 | IK I 15 

1 EHB 1 EOUIPI EQUIPI HOISE | FILE | SAGC I HULTI | VBC | HOT I | NEZI | DDSO | BLOCK) ODD | BHITEI BOS | READ 
1 1 FAIL 1 FAIL 1 1 HARK | | TBACKI | CHPT I | I 1 1 BYTE | OHFLWIPARITYI OVER 
1 1 TU 1 FCU .1 1 ERR 1 1 1 1 1 1 1 1 1 1 1 1 


1 EHB 1 1 CRC 1 SKEW j LOST | PABT | POST | PREHB | EHVLPI LPC | I 

1 1 1 1 BOB 1 REC 1 EBR | ERR | CHECK | j | Sane as above 


1 EHB 2 1 DEAD | IBG | HO I LOOP I ERASE | TACH | VELOCI ID I | 

1 1 TRACK 1 OVFLWI DATA j OUT | WRITE) FAIL | CHECK | CHECK | | Saae as above 

1 1 P 1 1 II FAIL 1 1 1 1 1 


1 EHB 3 1 DEAD | DEAD I DEAD | DEAD | DEAD | DEAD I DEAD j DEAD | | 

1 1 TRACK 1 TRACK 1 TRACK | TRACK | TRACK | TRACK) TRACK | TRACK | | Same as above 

1 |7 16 |5 \ H [3 )2 |1 |0 1 1 



TABLE 2-4 BIT DEFINITIONS 



1 MNEMONIC 1 


DEFINITION 


1 BKWD STAT | 


Backward status 


1 BLOCK 1 


Block status 


1 BOT STAT ! 


Beginning of tape status 


1 CRC 1 


Cyclic redundancy character 


! CRC ERR 1 


Cyclic redundancy character error 


1 DA 


Diagnostic aids 


1 DDS 


Data density 


1 DIAG MODE LTCH 


Diagnostic mode latch 


1 DT 


Dead track 


1 END DATA CHK 


End of data check 


1 ENVLP CHECK 


Envelope check 


1 EOT STAT 


End of tape status 


1 EQUIP FAIL ECU 


Equipment fail formatter 


1 EQUIP FAIL TU 


Equipment fail tape drive 


1 ERASE/WRITE FAIL 


Current erase or write failure 


1 FILE MARK 


File mark error 


1 FILE PROT 


File protect 


1 HI DEN 


High density 


1 IBG OVFLW 


Interblock gap overflow 


1 ID CHECK 


Identification burst check 


1 LOST BOB 


Lost beginning of block 


1 LRC 


Longitudinal redundancy check 


1 MTE 


Multiple track error 


1 MULTI-TRACK 


Multi-track error 


1 NOT COMPT 


Not compatible 


1 ODD BYTE 


Sets on odd byte boundary 


1 ON LINE STAT 


Online status 


1 PART REC 


Partial record 


1 POST ERR 


Postaroble error 


1 PREMB ERR 


Preamble error 


1 READ OVRN 


Read overrun 


1 RDY STAT 


Ready status 


1 SAGC 


Set auto gain control 


1 SKEW 


Excessive skewing 


1 SSC 


Slave status change 


1 TACH 


Digital tachometer 


1 TACH FAIL 


! Tachometer pulses not received 


1 UCE 


1 Uncorrectable error 


1 VEL ERR 


i Velocity error 


1 VELOC CHECK 


1 Velocity check 


1 VRC 


Vertical redundancy check 


1 WRT INHB 


1 Write inhibit 


1 WRT STAT 


j Write status 


1 WTM CHK 


1 Write tape mark check 
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2.4.3 Command Byte Descriptions 

The MTC has two command bytes selected by bit 12. The MTC 
responds to program command via an output command (0C> or an 
output command register (OCR) instruction. According to the bit 
settings of the density select, command select, and MUX error 
bits. Table 2-5 lists the commands that can be chosen. 



TABLE 2-5 COMMAND BYTE DESCBIPTIONS 



1 ! HEX 1 BIT NUMBER 

1 COMMAND 1 rOMMAND 1-- --■ - _-_ 


1 1 1 EQUAL 1 8 1 9 1 10 | 11 | 12 | 13 | la | 15 

1 = = = = === = = = === = = ===: === = =:===!=s:s;= = = = i:= = = = = ss:===s=s — ess — stt = s== = = =: = = =: = = = = = -: = = 

1 DISABLE IX' 88' |1 |0 jO |0 |1 |0 |0 |0 


1 ENABLE 1 X'ae* |0 |1 |0 |0 |1 |0 |0 |0 


1 DISARM 1 X*C8' |1 11 jO |0 |1 |0 jO |0 


1 6 250 1 i 1 1 i 1 1 1 1 
1 DENSITY 1 X'18' jO jO |0 |1 |1 10 |0 jO 


i 1600 1 < 1 1 1 1 1 1 1 
1 DENSITY 1 X'08' |0 jO jO |0 |1 |0 |0 |0 


1 800 1 1 1 1 1 1 1 1 1 
1 DENSITY 1 X'28' jO |0 |1 |0 |1 jO 10 |0 


1 CLEAR 1 X*09* |0 |0 |0 jO 11 jO |0 |1 


1 SAPLESS 1 X'OA' |0 |0 |0 jO |1 jO |1 |0 


1 ODDBYXFER | X'OP* |0 |0 jO \ |1 |0 |1 |1 


1 TESTMODE |X'OC'|0 |0 |0 |0 |1 |1 |0 |0 


1 8YTEREAD I X*OD* |0 |0 |0 |0|1 |1 |0 |1 


1 COMMAND 1 1 1 t 1 1 1 1 1 

jo 1 1 1 1 1 1 1 1 1 




1 f?EAD 1 x-ao* |0 |1 |0 |0 jO |0 jO jO 
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TABLE 2-5 COMMAND BYTE DESCRIPTIONS (Continued) 



1 1 HEX 1 BIT NUMBER 


1 LvJnnANU 1 CUnrAKU j ——— — —— — ———— ————— —————— —— ——— ————— ————— ————— — — — — 

1 1 1 EQUAL 1 8 I 9 1 10 ] 11 | 12 | 13 | 1^ | 15 

1 = = ===:====:=: = = =:s=: = = =:=======:==: = =:== = 3=== = = s==s== ===:=£:==: = =: = =:== = = =:===:=: = = = =: = 

1 WRITE END 1 X'CO' 11 |1 |0 |0 |0 |0 |0 |0 
1 OF FILE 1 1 1 1 1 1 1 1 1 


1 SKIP FHD 1 X'BO' |1 |0 |0 |1 |0 |0 |0 |0 
1 BLOCK 1 1 1 1 1 1 1 1 1 


1 BLOCK 1 1 1 1 1 1 1 1 1 


1 SKIP FWD 1 X'AO' 11 jO |1 jO |0 |0 jO |0 


1 SKIP BKWD 1 X'80' |1 |0 |0 |0 jO |0 |0 jO 
i FILE 1 1 1 1 1 1 1 i 1 


1 ERASE GAP 1 X'DO' |1 |1 |0 |1 (0 jO |0 |0 


1 CLS 1 X'lO' jO |0 jO |1 |0 |0 jO jO 
1 DRIVER 1 1 1 1 1 1 i 1 1 


1 READ BKHD j X'50' |0 j1 |0 |1 jO |0 jO |0 


1 UNLOAD 1 X'FO' |1 |1 |1 |1 |0 jO |0 |0 


1 REWIND I X'EO' 1 1 1 1 11 1 | | 10 10 


1 NOPO 1 X'OO' 10 10 10 10 |0 10 10 10 


1 N0P1 1 X'OV |0 10 10 10 10 10 |0 11 


1 N0P2 1 X'02' 10 10 10 10 10 10 11 10 


1 N0P3 1 X'03' 10 10 10 |0 10 10 11 M 




1 DMS 1X*20' 10 10 |1 |0 |0 10 10 |0 


1 SNS 1 X'30' |0 |0 jO 10 10 10 10 jO 


1 LWR 1 X'70' 10 11 11 11 10 10 10 10 
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The command bytes perforin the following operations: 



DISABLE Allows queueing of interrupts without 
interrupting the CPU. 

ENABLE Enables interrupts. 

DISARM Interrupts are not generated or queued. 

6250 During read or write operations off BOT, the 

DENSITY «TC will read or write at 6250 bpi. 

1600 During read or write operations off BOT, the 

DENSITY KTC will read or write at 1600 bpi. 

800 During read or write operations off BOT, the 

DENSITY HTC will read or write at 800 bpi. 

CLEAR Initializes the interface and resets the 

formatter. 

GAPLESS Sets the interface to operate in gapless mode. 

ODDBYXFER Notifies the interface that an odd number of 
bytes will be written to the tape. This 
command is used only in the write to tape. 

TESTHODE Puts the interface in the testmode. Used for 
diagnostic purposes. 

BYTEREAD Puts the interface in the byte mode for the 

purpose of reading a tape via an autoload 
instruction. 

WRITE Causes the tape to move in the forward 

direction and a write to occur. 

READ Causes the tape to move in the forward 

direction and read the data on the tape, 
transferring data characters to the interface. 

WRITE END The tape drive will write a compatible file 
OF FILE mark at the density selected. 

SKIP FWD Moves the tape forward a block and stops in 
BLOCK the IRG. 

SKIP BKWD Noves the tape in reverse a block and stops in 
BLOCK the IRG. 
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SKIP FWD 
FILE 

SKIP BKWD 
FILE 

ERASE GAP 



CLR DRIVER 
READ BKWD 

UNLOAD 
REWIND 



NOP 



D«S 



SNS 



LWR 



Moves the tape forward a file and stops in the 
IRG on the EOT side. 

Koves the tape in reverse a file and stops in 
the IRG on the BOT side. 

On the STC/ moves the tape in the forward 
direction and erases a 3.6 in. (91. 4U mm) 
nominal (PE or NRZI) or 3.4 in. (86.36 ram) 
nominal (GCR) section of the tape. Bead 
checks are performed to verify erasure. 

On the TELEX, moves the tape forward and 
erases 3.5 in. (88.9 mm) of the tape. 

Besets the formatter from any error status. 

Moves the tape in reverse and reads data 
characters in reverse. 

Rewinds the tape to BOT and performs an 
unload, rewinding the tape onto the supply 
reel. 

Rewinds the tape at rewind speed until BOT is 
sensed. No other command will be accepted 
during this action. 

The NOP commands - NOPO, N0P1, N0P2, N0P3 and 
NOPU are essentially nonfunctional. 

The 4.nterface is transferred from the 

functional mode to the diagnostic mode. This 

transfer is accomplished through a RESET input 

or after a certain diagnostic mode sequence. 

Used to initiate the transfer of the various 
drive status bytes (DSB). 

Used to test the read and write data circuit 
paths within the FCU. There is no tape motion 
or tape unit required. 



Bits 13:15 select one of eight 9-bit registers, DSBs, to be 
multiplexed on the error MUX bus (ERRMX) output lines as shown in 
Table 2-6. 
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TABLE 2-6 DRIVE STATUS BYTES 



1 STC I 

j ^»^ — ••■ ■ 


1 MUX2 


MUX1 


MUXO 


1 DSB 


DESCRIPTION 1 


1 ======= 


= ======= 


:=== ===: 


== = = = = : 


==================== 1 


1 








1 


Dead tracks j 


1 





1 


1 1 


Read/write errors j 


1 


1 





1 2 


Diagnostic aids | 


1 


1 


1 


1 3 


Drive sense byte | 


1 1 








4 


CRC-P 1 


1 1 





1 


I 5 


Reserved | 


1 1 


1 


1 


1 6 


Reserved j 


1 1 


1 


1 


1 7 


Reserved j 

" ...__. ■ 


1 1 

1 TELEX 1 


1 MUX2 


MUX1 


MUXO 


1 DSB 


1 

DESCRIPTION j 


1 = = = = = =:: 


======== 


=======: 


£ = = = = = = 


==================== 1 










1 


Byte zero j 







1 


t 1 


Byte one | 




1 





2 


Byte two j 




1 


1 


I 3 


Byte three | 



2.5 PROGRAMMING SEQUENCES 

The following paragraphs give a number of conventions and 
comments concerning the magnetic tape system programming. Some 
or all of the comments may apply, depending on how the magnetic 
tape system is to be used. 



2.5.1 File Hark at BOT 

To conform to Perkin-Elmer tape formats, it is necessary to write 
a file mark when the tape is positioned at BOT. This is 
accomplished with a write end of file (EOF) command. Once the 
write EOF operation terminates (NMTN set), the normal write 
record processing may be executed. Also, the EOF mark may be 
overwritten if desired by a backspace, write sequence. 
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2.5.2 Skip File Forward from BOT 

Since a skip forward command can be issued while the tape is 
positioned at the beginning of tape (BOT status set)# a general 
procedure for skipping file marks from BOT is as follows: 



1. Command skip file forward, which moves the tape past the 
first EOF mark, if not overwritten. 

2. A read or write command may be issued to process the 
remaining records of the file. 



2.5.3 Error Becovery 

Like any magnetic tape device, the HPMTS 125 is subject to errors 
from dirt on the tape or from oxide worn thin. When writing or 
reading from magnetic tape, proper error tests and error recovery 
routines should be used. In general, during the reading 
operations, if end of medium (EOM) occurs before four characters 
have been transferred, the EOM indication may be due to dirt or 
noise on the tape. In this case, the short record should be 
ignored, and re-read as outlined below. If the ERR status occurs 
after reading a record of normal length, a read error may have 
resulted. In this case, it is proper to backspace and re-read 
the record five times before considering the error unrecoverable. 
In the case of a write error, it is proper to backspace and 
attempt to rewrite the record five times before considering it an 
unrecoverable error. 



NOTE 

Following an unrecoverable error, either 
the program should backspace and 
overwrite the bad record with record gaps 
and resume, or the write process on that 
magnetic tape should be aborted. 

The procedure for filling a bad record 
with record gaps is as follows: 



1 . Write a file mark 

2. Backspace 

3. Write a file mark 

4. Backspace 

5. Write 
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2.5.U Skip File Forward 

The skip file forward operation is achieved by the use of the 
skip command. That is, once an output command to skip is issued, 
the tape advances to the next IRG beyond the EOF mark. 



2.5.5 Lona Records 

For normal use, there should be sufficient buffer space in memory 
to allow reading the longest record on the magnetic tape. In 
case the program waits for EOM status and ignores the trailing 
extra data characters, the EBR status results due to data input 
overflow. The program cannot then distinguish between long 
records and an actual read error condition. To avoid this 
ambiguity, it is mandatory that the program read all data 
characters from the tape, and disregard those characters in the 
program that do not fit into the buffer space available. 



2.5.6 Short Records 

If short records are written, a large amount of space may be 
wasted on the tape by the many IRGs that occur. 



2.5.7 EOF Marks 

The write end of file mark (WEOF) command causes the tape unit to 
generate a special hardware character. When reading in the EOF 
mark, the special character is recognized by the hardware and the 
EOF bit is set in the status. 

File marks are used by the «TC for skip operations. For this 
reason, extraneous EOFs on a tape should be avoided. If a tape 
terminates its last file with a file mark, care should be taken 
in extending that file. The procedure to extend the last file, 
terminated by a file mark, is; 

1. Skip forward the last file mark at end of last file. 

2. Backspace one record. 

3. Write new record as desired (overwriting the file mark). 

4. Write a new file mark at the end. 
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2.5.8 EOT Status 

The EOT status bit is set whenever the magnetic tape sensors 
detect the reflective markers at the beginning or end of the 
tape. Once the EOT is encountered* the EOT bit remains set until 
a clear command is given, system initialization occurs, or a 
revfind operation is performed. The examine (EX) bit does not set 
when EOT sets, unlike the other status bits (EOF, ERR, and NMTN). 
Thus, it is necessary that the programmer test the upper half of 
the status byte to ascertain the EOT or BOT condition. It is 
permissable to vrite beyond the EOT. (Note that care must be 
taken to insure that the tape length is not exceeded). The EOT 
bit remains set until one of the previously mentioned operations 
in this paragraph is performed. 

If the processor issued a write or write file mark command to a 
magnetic tape that does not have a write ring present, (1) the 
command is ignored, (2) the no motion (NMTN) status bit remains 
set, and (3) the BUSY (BSY) status bit remains reset. 



2.5.9 Read Operation at BOT 

The read block and autoload instructions can be used to read from 
the BOT. If the first record on the tape is an EOF mark, then it 
is necessary that two read operations must be performed to read 
the tape. The first read operation moves the tape past the EOF 
and the second read loads the first data record. 

2.5.10 Multitransport Operations 

Each transport on a controller can be issued a rewind command and 
all transports rewound. If Transport is busy (NMTN=0) and 
Transport 1 is addressed, the operation (if other than rewind) is 
terminated on Transport 0. The following is a recommended 
sequence for switching tape transport operations: 

1. Wait for NMTN=1 on Transport 0. 

2. Issue rewind command to Transport 0. 

3. Wait for NMTN=1 on Transport 1. 

U. Perform operations on Transport 1. 

It is not mandatory that a program adhere to this sequence, but 
as a general rule, only the rewind command to all transports can 
allow motion of all transports at the same time. 

As a general rule, no transport accepts a command unless NMTN=1. 
This means that no motion (NMTN~1) must be set on one transport 
before any other can be used. It is not necessary to write until 
NMTN is set before ending an operation, but it is necessary to 
wait for NMTN to set before starting an operation on the same 
transport or to any other transport. 
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2.5.11 Data Transfer 

Due to the high data transfer rate of the magnetic tape system, 
the SELCH is the preferred method of implementation; however, MUX 
bus programming can be used in certain situations. 

2.5.12 Programming Nodes 

The magnetic tape system may be programmed using sense status 
loops, immediate interrupts, or auto driver channel. The choice 
of mode depends on the application and the drives involved. See 
Appendixes for programming examples of various modes. 

2.6 INTERRUPTS 

The magnetic tape system produces interrupts when the controller 
is enabled and: 



• DU sets, 

• BUSY resets, 

• NMTN sets, 

• TESR sets, and 

• ERR sets. 



NOTE 

The EOH interrupt occurs as described 
above, and at the end of all normal 
operations. Another interrupt occurs 
after EOK (NMTN is set). Only the 
addressed transport may generate 
interrupts. 



2.7 INITIALIZATION 

Processor initialization resets the formatter status lines 
leaving RDY and ONLINE set. 



2.8 TAPE DRIVE ADDRESSES 

The MTC will always respond to four sequential addresses. Each 
address selects a different tape unit as shown in Table 2-7. 
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TABLE 2-7 TAPE DRIVE ADDRESSES 











TAPE 










UNIT 




ADDRESS 




SELECTED 


X'OX* 


1 X'4X' 
I 


X'8X' 


X'CX* 


TUO 


XMX* 


1 X*5X' 
1 


X*9X' 


X'DX' 


TU1 


X'2X' 


1 X'6X' 
1 


X'AX' 


X'EX* 


TU2 


X'3X' 


1 

1 X»7X' 


X'BX' 


X'FX* 


TU3 



X = don't care 



2.9 SAMPLE PROGRAMS 

Appendix A contains four sample programs ' with flowcharts to 
illustrate writes and reads to a magnetic tape for 32-t)it 
processors. 

Program 1 uses sense status loops to write a preset data pattern 
onto the magnetic tape through the MUX bus followed by reads into 
a memory location. 

Program 2 uses sense status loops to write a preset data buffer 
onto a magnetic tape through the SELCH, followed by reads into a 
memory location. 

Program 3 uses immediate interrupts to write a preset data 
pattern onto a magnetic tape through the MUX bus followed by 
halfword reads into a memory location. 

Program H uses immediate interrupts to write a preset data buffer 
onto a magnetic tape through the SELCH followed by reads into a 
memory location. 
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APPENDIX A 
SAMPLE PROGRAMS 

SA»!PLE PROGRAW 1: WRITE AND READ TO AND FROM THE TAPE VIA THE 

MUX BUS UNDER SENSE STATUS CONTROL. 



LOAD 
DRIVE ADDRESS 



LOAD 
DATA PATTERN 



REWIND THE 
MAG TAPE 
BAL HEWMT 



^ 



WAIT FOR 
NO MOTION 
BAL SENSTA1 



REWIND TAPE 
BAL REWMT 





D 



LPSW X'8000' 
HALT PROCESSOR 



ISSUE CLEAR 
TO INTERFACE 



LOAD BYTES 
VALUE 



OUTPUT DENSITY 
TO INTERFACE 



LOAD BYTES 
VALUE 



CLEAR INDEX 
REGISTER 



PUT INTERFACE 
IN READ MODE 



DECREMENT 

BYTES VALUE 

BY1 



N-BYTESODD/^ 


I 


N 


i, 


ISSUE WRT 
ODD BYTE 
COMMAND 


j 


I 




) 








PUT INTERFACE 
INTO WRITE MODE 




















WRITE A 

HALFWORD TO 

TAPE 






1 






DECREMENT 
BYTES BY 2 




N 


_y^ BYTES >^ 


/-^ 



WAIT FOR 

NON BUSY STATUS 

BAL SENSTA3 



READ A 

HALFWORD INTO 

BUFFER 



INCREMENT 

BUFFER ADDRESS 

IINDEX) BY 2 




WAIT FOR 
NO MOTION 
BALSENSTA1 
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h-^ 



ax 



o 

o 
o 
lO 

•^ 
o 
o 

a3 
o 
o 



rSENSTAI J 



LOAD A 

TIME LIMIT 



SENSE STATUS 
OF INTERFACE 




RETURN 



) 



DECREMENT 

TIME LIMIT 

BY1 






r SENSTAS^ 








LOAD A 
TIME LIMIT 
















SENSE STATUS 
OF INTERFACE 




/CC = 0008 \j;i 

[Y 




DECREMENT 
TIME LIMIT 




lyyme limit\ 



r ERROR ^ 



r ERROR ^ 



RETURN 




WAIT FOR 

NO MOTION 

STATUS BYTE 

SENSTA1 



0*- 



GIVE REWIND 
COMMAND 



WAIT FOR 
NO MOTION RESET 



WAIT FOR 
NO MOTION TO SET 



r RETURN ^ 



(error) 



OUTPUT 

APPROPRIATE 

error MESSAGE 



OUTPUT SUSPECTED 
FAILING UNIT 



^END TEST J 



LTl 

O 

I 

O 

o 



o 
o 

to 
o 
o 



PAGE 



1 11:52:16 12/0U/81 



I 



aOG= *HONE* 


ASSEHBLED FY 


CAL 03 


-066H08-00 (32-BIT) 










1 




SCRAT 












2 




WIDTH 


120 










3 




CROSS 












4 




TARGT 


32 










5 
6 

7 


* SAMPLE 


PROGRAM 1 










* WRITE 


TO THE TAPE AND BI 










8 

9 

10 


* ON THE BULTIPLEXOE BUS I 










♦ REGISTER ASSIGNMENTS 




0000 


0000 




11 


80 


EOU 







0000 


0001 




12 


PI 


EQU 


1 




0000 


0002 




13 


P2 


EQi! 


2 




0000 


0003 




14 


E3 


EQU 


3 




0000 


0004 




15 


R4 


EQU 


4 




0300 


0006 




16 


R6 


EQU 


6 




0000 


0008 




17 


R8 


EQO 


e 




0000 


0009 




18 


E9 


EQU 


9 




0000 


OOOE 




19 


R14 


EQO 


14 




oooo 


OOOF 




20 
21 
22 


E15 

* 


EQO 


15 


OOOOOOI 


0035 






DBIVADH 


DCX 


85 


0000021 


123« 






23 


DATAPAT 


OCX 


1234 


OOOOOUI 


OOFF 






24 


BYTES 


OCX 


FF 


0000061 


0960 






25 


CLEAR 


DCX 


0960 




0000 


00071 




26 


WHITE 


EQU 


CLFAR+1 


0000081 


0818 






27 


DENSITY 


DCX 


0618, 280B 


OOOOOAI 


2S0B 
















OOOO 


OOOBI 




28 


HETODDBY 


EQU 


DENSlTY+3 


OOOOOCI 


i»OEO 






29 


READ 


DCX 


40E0 




0000 


OOODI 




30 
31 


REWIND 

* 


EQU 


EEAD+1 










32 


* START 


PROGRAM 


OOOOOEI 


uaio 


FFEE 


=0000001 


33 




LH 


R1,DRIVADR 


0000121 


4840 


FFEC 


=0000021 


34 




LH 


R4, DATAPAT 


0000161 


41F0 


4000 


00F4I 


35 




BAL 


R15,REWMT 


00001CI 


41E0 


4000 


OOAOI 


36 




BAL 


R14,CCLEAR 


0000221 


2432 






37 




LIS 


S3, 2 


000024I 


41E0 


4000 


00A6I 


38 




BAL 


R14,CDENS 


00002AI 


4860 


FFD6 


=0000041 


39 




LH 


R6, BYTES 


00002EI 


2751 






40 




SIS 


56,1 


0000301 


C360 


0001 




41 




THI 


E6,X'000r 


000031*1 


4230 


4000 


00401 


42 




BNZ 


SMP1.001 


00003AI 


41E0 


4000 


00B2I 


43 




BAL 


R14,CHB0DBY 


0000401 


41E0 


4000 


OOACI 


44 


SBP1.001 


BAL 


R14,CWEITE 


00001*61 


9314 






45 


SMP1.002 


WHB 


E1,R4 


00O0W8I 


2762 






46 




SIS 


B6,2 


00004AI 


4380 


FFF8 


=0000461 


47 




BNL 


SBP1,002 


OOOOItEI 


41E0 


4000 


00C4I 


48 




BAL 


E14,SENSTA1 


oooosm 


C530 


0014 




49 




CLHI 


fi3,X'14" 


0000581 


4230 


4000 


01201 


50 
51 
52 


* 


BNE 


EBROE 


00005EI 


41E0 


4000 


OOBEI 




BAL 


E14,CEEW 



BEAD FPOH THE TAPE 
USING SENSE STATUS. 



DBIVE ADDRESS 
DATA PATTERN 
BYTES PEE BECORD 
CLEAR THE INTERFACE 
INTERFACE IN WRITE MODE 
1600, 6250, 800 

WHITE AN ODD AMOUNT OF BYTES 
INTERFACE IN BEAD MODE 
REWIND THE TAPE 



aET DRIVE ADDRESS 
GET DATA PATTERN 
REWIND THE TAPE 
CLEAR THE INTEEFACE 

GIVE PROPER DENSITY 

GET BYTES VALUE 

ADJUST FOR HALFWORD WRITES 

IS IT AN ODD VALUE 

IF ORIGINAL IS NOT, SKIP 

ISSUE ODD BYTE COMD 

GIVE WRITE CHD 

WBITE OUT DATA TO TAPE 

DECREMENT BYTE CNT 

COMPLETE ALL 

WAIT FOE NO MOTION 

CHECK FOE PEOPEB STATUS 



REWIND MAGNETIC TAPE 



SMP10010 
SMP10020 
3MP10030 
SMP10040 
SMP10050 
SMP10060 
SMP10070 
SMP10080 
SHP10090 
SMP10100 
SHP10110 
SMP10120 
SMP10130 
SMP10140 
SHP10150 
SMP10160 
SMP10170 
SHP10180 
SMP10190 
S MP 10 200 
SMP10210 
SMP10220 
SHP10230 
SMP10240 
SSP10250 
SMP10260 
SHP10270 

SMP10280 
SMP10290 
SMP10300 
SMP10310 
SMP10320 
SMP10330 
SMP10340 
SHP10350 
SMP10360 
SMP10370 
SBP10380 
SHP10390 
3MP10400 
SMP10410 
SMP10420 
SBP10430 
SBP10440 
SBP10450 
SBP10460 
SHP10470 
SBP10480 
SMP10490 
SBP10500 
SBP10510 
SBP10520 



I 

■t-- 



PRGE 



00006UI 


U1E0 


4000 


00C4I 


53 


BAL 


E14,SEHSTA1 


00006AI 


tt860 


FF96 


=0000041 


54 


LH 


R6, BYTES 


00006EI 


2U80 






55 


iis 


B8,0 


0000701 


141E0 


UOOO 


00B8I 


56 


BAL 


fi14,CREAD 


0000761 


H1E0 


«000 


OODSI 


57 


SMP1.005 BAL 


B14,SEMSTA3 


00007CI 


D918 


aooo 


01301 


58 


SH 


B1,BEADBUF(R8) 


0000821 


2682 






59 


AIS 


88,2 


00008m 


0568 






60 


CLB 


R6,R8 


0000861 


U220 


FFEC 


=0000761 


61 


BP 


SMP1.005 


00008AI 


U1E0 


«000 


O0C4I 


62 


BAL 


R14,SENSTA1 


0000931 


C530 


001C 




63 


CLHI 


R3,X*1C' 


00009«I 


II230 


4000 


01201 


64 


BNE 


ERHOB 


00009AI 


l»300 


4000 


01201 


65 


B 


TSTEND 



2 11:52:16 12/04/81 

WAIT FOR HO MOTION 
GET BYTES VALUE 

PUT INTERFACE IN READ MODE 
»AIT FOR HON BUSY 
READ INTO KPWORr LOCATION 
INCSEHENT LOCATION 

CDHTINUE READING 
WAIT FOR NO MOTION 
CHECK FOR PROPER STATUS 



SSP10530 
SMP10540 
3MP10550 
SBP10560 
SMP10570 
SMP105B0 
3MP10590 
SMP10600 
SMP10610 
SHP10620 
SMP10630 
SHP10640 
SSP10650 



o 

I 

o 
o 
^o 

o 
o 

50 
O 

o 



OOOOAOI 


DE10 


FF62 


=0000061 


67 


CCLEAR 


OC 


RIfCLEAB 


O0OOA4I 


030E 






68 




BR 


R14 


OO00A6I 


DEI 3 


FF5E 


=0000081 


70 


CDENS 


OC 


R1,DENSITY(R3) 


OOOOAAI 


030E 






71 




BR 


R14 


OOOOACI 


DE10 


FF57 


=0000071 


73 


CHRITE 


OC 


R1, WRITE 


OOOOBOI 


030E 






74 




BR 


ai4 


0000B2I 


DE10 


FF55 


=0000081 


76 


CWRODBY 


OC 


RI.WHIODDBI 


0000B6I 


030E 






77 




BR 


R14 


OOOOBBI 


DE10 


FF50 


=00000CI 


79 


CREAD 


OC 


HI, READ 


OOOOBCI 


030E 






80 




BR 


R14 


OOOOBEI 


DE10 


FF4B 


=0000001 


82 


CREW 


OC 


R1, REWIND 


0000C2I 


030E 






83 




BH 


R14 


0000C4I 


F800 


007F 


FFFF 


85 


SEN3TA1 


LI 


R0,Y'7FFFFF' 


OOOOCAI 


9D13 






86 


SENSE1 


SSR 


R1,a3 


OOOOCCI 


024E 






87 




BOR 


R14 


OOOOCEI 


2701 






88 




SIS 


R0,1 


OOOODOI 


4230 


FFF6 


=0000CAI 


89 




BNZ 


SEN3E1 


0000D4I 


4300 


4000 


01201 


90 




B 


ERROR 


OOOODAI 


F800 


007F 


FFFF 


92 


SENSTA3 


LI 


R0,Y'7FFFFF' 


OOOOEOI 


9D13 






93 


SENSE3 


SS8 


R1,R3 


0000E2I 


038E 






94 




BNCR 


R14 


0000E4I 


2701 






95 




SIS 


R0,1 


0000E6I 


4230 


FFF6 


=O000E0I 


96 




BNZ 


SEHSE3 


OOOOEAI 


4300 


4000 


01201 


97 




B 


ERROR 


OOOOFOI 


9D13 






99 


SENSTA 


SSR 


R1,R3 


O0OOF2I 


030E 






100 




BE 


R14 


O0OOF4I 


41E0 


FFF8 


=0000F0I 


102 


REMIT 


BAL 


314, SENSTA 


0000F8I 


C330 


0020 




103 




THI 


R3,X'20' 


OOOOFCI 


023F 






104 




BNZB 


R15 


OOOOFEI 


41 EO 


FFEE 


=0000F0I 


105 




BAL 


R14, SENSTA 



CLEAR THE INTERFACE 
RETURN 

PROPER DENSITY 
RETURN 

PUT INTERFACE IN WRITE BODE 
RETURN 

ODD BYTE COMMAND FOR ODD BYTE AMOUNTS 
RETURN 

PUT INTERFACE IN HEAD MODE 
RETURN 

REWIND TAPE 
RETURN 

TIMELIHIT 

GET INTERFACE STATUS 
RETURN ON NO MOTION 
DECREMENT TIME OUT 



TINE LIMIT 

GET INTERFACE STATUS 
RETURN OH NOT BUSY 
DECREMENT TIME OUT 



SET INTERFACE STATUS 
RETURN 

CHECK STATUS 

IS TAPE ALREADY AT BOT 

RETURN IF SO 



SMP10670 
SHP10680 

SMP10700 
SHP10710 

SMP10730 
SMP10740 

SMP10760 
SMP10770 

SMP10790 
SMP10800 

5HP10820 
SMP10830 

SMP10850 
SHP10860 
SHP10870 
SaP10880 
SMP10890 
SMP10900 

SMP10920 
SMP10930 
3HP10940 
SMP10950 
3MP10960 
SMP10970 

SMP10990 
SMP11000 

SMP11020 
SMP11030 
SMP11040 
SMP11050 



o 
I 

o 
o 

^0 

o 
o 

o 
o 



0001021 


C330 


0010 


106 




THI 


B3,X'10" 


0001061 


4230 


4000 01101 


107 




BNZ 


aEH.2 


00010CI 


41E0 


FFB4 =0000C4I 


108 




BAL 


E14,SEHSTA1 


0001101 


41E0 


FFAA =0OO0BEI 


109 


REM. 2 


BAL 


R14,CREH 


0001141 


41E0 


FFD8 =OOOOFOI 


110 


EEW.3 


BAL 


ai4,SENSTA 


0001181 


2042 




111 




BOS 


REM. 3 


00011AI 


41 EO 


FFA6 =0000C4I 


112 




BAL 


S14,SENSTA1 


000 11 EI 


030F 




113 




BR 


R15 




0000 


01201 


115 


ERROR 


EQU 


* 


0001201 


C200 


4000 01281 


116 


TSTEHD 


LP3W 


wAin 


0001281 


0000 


8000 


117 


MAIT1 


DCY 


3003 


00012CI 


0000 


01201 


118 




DC 


A(TSTEND) 


0001301 






119 


BEADBOF 


DS 


1024 


0005301 






120 




END 





PAGE 3 11:52:16 12/04/81 
HOHOTIOS? 

ISSUE REWIND COMMAND 

WAIT FOR TAPE TO CO INTO HOTIDN 

HAIT FOR HO MOTION 

RETURN 



SHP11060 
SSP11070 
SHP11080 
SMP11090 
SHP11100 
SSP11110 
SMP11120 
SHP11130 

SHP11150 
SMP11160 
SHP11170 
SMP11180 
SHP11190 
SMP11200 



3* 



I 

■.T\ 



ASSEMBLED BY CAL 03-066E08-00 

START OPTIOSS: T=32,FF1ST 

NQ CM EBSQKS 
MO CAL HAHSING!! 
2 PASSES 

TABLE SPACE USED : 2K 



< 32-BIT) 



P*GE 



l!|t:52:16 12/04/81 



(J1 
O 
I 

o 
o 

vD 

'^ 
O 

o 

M 
O 
O 



ABSTOP 


0000 


0000 




























ATIC 


0000 


ooon 




























BYTES 


0000 


oooai 


2H* 


39 


54 






















CCLEAR 


0000 


OOAOI 


36 


67* 
























CDEHS 


0000 


O0A6I 


38 


70* 
























CLEAS 


0000 


0006 1 


25* 


26 


67 






















CEEAD 


0000 


00B8I 


56 


79* 
























CBE« 


0000 


OOBEI 


52 


82* 


109 






















CH8ITE 


0000 


OOACI 


44 


73* 
























CWP.ODBY 


0000 


O0B2I 


43 


76* 
























DATAPAT 


0000 


00021 


23* 


34 
























DEHSITY 


0000 


00081 


27* 


28 


70 






















DRIVADE 


0000 


OOOOI 


22* 


33 
























EBROS 


0000 


01201 


50 


64 


90 


97 


115* 


















mPTOP 


0000 


OS30I 


120 


























LADC 


0000 


0002 




























PUEETOP 


0000 


OOOOP 


120 


























EO 


0000 


0000 


11* 


85 


88 


92 


95 


















81 


0000 


0001 


12* 


33 


45 


58 


67 


70 


73 


76 


79 


82 


86 


93 


99 


E14 


0000 


OOOE 


IS* 


36 


38 


43 


44 


48 


52 


53 


56 


57 


62 


68 


71 








74 


77 


80 


83 


87 


94 


100 


102 


105 


108 


109 


110 


112 


E15 


0000 


OOOF 


20* 


35 


104 


113 




















E2 


0000 


0002 


13* 


























B3 


0000 


0003 


14* 


37 


49 


63 


70 


86 


93 


99 


103 


106 








Elt 


0000 


ooou 


15* 


34 


45 






















E6 


0000 


0006 


16* 


39 


40 


41 


46 


54 


60 














E3 


0000 


0008 


17* 


55 


58 


59 


60 


















89 


0000 


0009 


18* 


























BEAD 


0000 


OOOCT 


29* 


30 


79 






















READBUF 


0000 


01301 


58 


119* 
























REU.2 


0000 


01101 


107 


109* 
























8EH.3 


0000 


Ollltl 


110* 


111 
























REWIND 


0000 


OOODI 


30* 


82 
























8EWHT 


0000 


ooFm 


35 


102* 
























SEHSE1 


0000 


OOCAI 


86* 


89 
























SEHSE3 


0000 


OOEOI 


93* 


96 
























SESSTA 


0000 


OOFOI 


99* 


102 


105 


110 




















SEMSTA1 


0000 


OOCtI 


48 


53 


62 


85* 


108 


112 
















SENSTA3 


0000 


OODAI 


57 


92* 
























SHP1.001 


0000 


001*01 


42 


44* 
























SHP1.002 


0000 


00K6I 


45* 


47 
























SHP1.005 


oooo 


00761 


57* 


61 
























TSTESD 


0000 


01201 


65 


116* 


118 






















BAIT1 


0000 


01281 


116 


117* 
























WRITE 


0000 


00071 


26* 


73 
























HBTODDBT 


0000 


OOOBI 


28* 


76 

























SAMPLE PROGRAM 2j ViRITES AND READS TO 
SELCH UNDER SENSE STATUS CONTROL. 



AND FROM A TAPE USING THE 



C START J 



LOAD DRIVE 

AND SELCH 

ADDRESS 



LOAD DATA 
PATTERN 



STOP AND 

INITIALIZE THE 

SELCH 



REWIND THE 
MAG TAPE 
BAL REWMT 



CLEAR THE 
INTERFACE 



SET UP FOR 
SELCH WRITE 
BALSEISETW 



SAVE WRITE 
ADDRESSES 



OUTPUT DENSITY 
COMMAND 




SENSE STATUS 
OF SELCH 




GIVE SELCH 
THE GO 
TO READ 



DECREMENT 
TIME LIMIT 




LOAD BYTE VALUE 



ISSUE WRITE 
ODD BY 
COMMAND 



PUT INTERFACE 
IN WRITE MODE 



GIVE SELCH 
THE GO 



r 



CHECK SELCH 

STATUS BAL 

SELCH K 



CHECK SELCH 

ENDING ADDRESSES 

BALSELEND? 



CHECK INTERFACE 

STATUS FOR DU 

OR ERROR 

BALSTATCHK 



REWIND MAG 
TAPE BAL REWMT 



SET UP READ 

BUFFER ADDRESS 

BALSELSETR 



SAVE BEGINNING 

AND END READ 

ADDRESSES 



PUT INTERFACE 
IN READ MODE 



6 



SET UP A 
LARGE TIME LIMIT 



^ — Q 



SENSE SELCH 
STATUS 




DECREMENT 
TIME LIMIT 



CHECK SELCH 

STATUS BAL 

SELCHK 




CHECK SELCH 

ENDING ADDRESS 

BALSELEND 



CHECK INTERFACE 

STATUS FOR 

OUOR ERROR 



(LPSW X'8000- ^ 
HALT PROCESSOR^ 



SET UP A 
LARGE TIMEOUT 



50-009 ?00 ROO 



A-7 



I 



o 
I 

o 
o 



LOAD A 

TIME LIMIT 



SENSE STATUS 
OF INTERFACE 




DECREMENT 
TIME LIMIT 




N / TIME 
LIMIT 



Q ERROR J 



IS TAPE 
ATBOT? > K RETUR 




D 



NO MOTION - . 

SET? y^ I 



WAIT FOR 

NO MOTION STATUS 

BAL SENSTAl 



5- 



GIVE REWIND 
COMMAND 



WAIT FOR 
NO MOTION RESET 



WAIT FOR 
NO MOTION TO SET 



(return) 



(S£LCHk) 



GETSELCH 
STATUS 




C ERROR J 



(SELSET r) 



LOAD BEGINNING 
ADDRESS OF 
READ BUFFER 
AND SAVE IT 



LOAD BYTES 
VALUE 



CALCULATE 

READ BUFFER 

ENDING ADDRESS 

AND SAVE IT 



f RETURN ^ 



^SELENDj 



GET SELCH 
ENDING ADDRESS 



STOP SELCH 




( ERROR j 



f ERROR ^ 



OUTPUT 

APPROPRIATE 
ERROR MESSAGE 



OUTPUT 

SUSPECTED 

FAILING UNIT 



^ND TEST j 



[SELSETWj 



LOAD BYTES 
VALUE 1 



LOAD BEGINNING 

ADDRESS OF 
WRITE BUFFER 
AND SAVE IT 



SET UP 

INDEX REGISTEB 

TOO 



I 



STORE DATA 
PATTERN INTO 
WRITE BUFFER 



INCREMENT 

INDEX REGISTER 

8Y2 




STOP SELCH 



CALCULATE 
ENDING ADDRESS 
Of WRITE BUFFER 
AND SAVE IT 



C RETURN ^ 



f STATCHK ^ 



SENSE INTERFACE 
STATUS 




SENSE STATUS 
AND WAIT FOR 

NO MOTION 




{RETURN^ 



o 
o 



o 
o 



U1 

o 

o 
o 



O 
O 

o 

o 



PA3E 



09:50:02 12/07/81 



PBOG = 



'NONE* 



I 





0000 


0000 




0000 


0001 




0000 


0002 




0000 


0003 




0000 


0004 




0000 


0005 




0000 


0006 




0000 


0007 




0000 


0008 




0000 


0009 




0000 


OOOA 




0000 


OOOB 




0000 


OOOC 




0000 


OOOD 




0000 


OOOE 




0000 


OOOF 


OOOOOOI 


0085 




0000021 


123U 




0000041 


00 FO 




0000061 


OOFF 




0000081 


000* 


5000 


OOOOOCI 


0960 






0000 


OOODI 


OOOOOEI 


0818 




0000101 


280B 






0000 


00111 


0000121 


40 EO 






0000 


00131 


oooomi 


S"*?!* 






0000 


00151 


0000161 


tcoc 






0000 


00171 


0000181 


48 00 




00001CI 


0000 


0000 


0000201 


0000 


0000 


00002W 


0000 


0000 


0000281 


0000 


0000 


00002CI 


4810 


FFDO 


0000301 


4820 


FFDO 


00003l»I 


4840 


FFCfl 



=0000001 
=0000041 



03 


-066R08-00 (32-Bir) 


1 




SC8AT 




2 




CROSS 




3 




WIDTH 


120 


4 




TARGT 


32 


5 


* 






6 


* SAMPLE 


PROGRAM 2 


7 


* aRITE 


AND READS TO AND 


8 

9 

10. 


* THROUGH THE 


SELCH USIN( 


* REGISTEB ASSIGHHENTS 


11 


RO 


EQtl 





12 


81 


BQU 


1 


13 


B2 


EQU 


2 


14 


R3 


EQU 


3 


15 


B4 


EQU 


4 


16 


R5 


EQU 


5 


17 


R6 


EQU 


6 


18 


87 


BOU 


7 


19 


R8 


EQU 


8 


20 


R9 


EQU 


9 


21 


RIO 


EQU 


10 


22 


R11 


EQO 


11 


23 


R12 


EQU 


12 


24 


R13 


EQU 


13 


25 


R14 


EQU 


14 


26 


R15 


EQ'J 


15 


27 


DRIVSDR 


DCX 


85 


28 


DATAPAT 


DCX 


1234 


29 


SELADR 


DCX 


FO 


30 


BYTES 


DCX 


FF 


31 


BASE 


DCY 


A5000 


32 


CLEAR 


DCX 


0963 


33 


WRITE 


EQU 


CLEAB+1 


34 


DEHSITY 


DCX . 


0818,2808 


35 


MRTODDBY 


EQO 


DENSITY+3 


36 


READ 


DCX 


40 EO 


37 


REWIND 


EQU 


READ+1 


38 


GO 


DCX 


5474 


39 


GOHEAD 


EQU 


GO + 1 


40 


STOP 


DCX 


4C0C 


41 


STOPS 


EQU 


STOP+1 


42 


EXTD 


DCX 


4800 


43 


STOPADDR 


DCY 





44 


WBUF 


DCY 





45 


aOBUF 


DCY 





46 


ENDBUF 


DCY 





47 


* 






48 


* START 


PROGRAM 


49 


* 






50 




LH 


R1,DEIVADR 


51 




LH 


82,3ELADB 


52 




LH 


84, DATAPAT 



FROM THE TAPE 
; SENSE STATUS. 



DBIVE ADDBESS 
DATA PATTEEN 
SELCH ADDBESS 
BYTES PER RECORD 

CLEAR INTERFACE 
INTERFACE INTO WRITE MODE 
1600, 6250, 800 

WRITE AN ODD ANDONT OF BYTES 
PUT INTERFACE IN BEAD MODE 
REWIND TAPE 
SELCH TO 50 (WRITE) 

SELCH TO GO READ 
STOP SELCH 

EXTENDED ADDRESSES OF SELCH 
STORAGE LOCATIONS 



GET DRIVE ADDBESS 
GET SELCH ADBESS 
SET DATA PATTERN 



SHP20010 
SMP20020 
SMP20030 
SBP20040 
SBP20050 
SMP20060 
SMP20070 
SMP20080 
SMP20090 
SMP20100 
SMP20110 
SMP20120 
SMP20130 
SHP20140 
SHP20150 
SMP20160 
SMP20170 
SMP20180 
SMP20190 
SHP20200 
SMP20210 
3MP20220 
SMP20230 
SMP20240 
SMP20250 
SBP20 260 
SMP20270 
SHP20280 
SHP20290 
SMP20300 
SBP20 310 
SBP20320 
SBP20330 
SBP20340 

SBP20350 
SaP20360 
SMP20370 
SBP20 380 
SHP20390 
SMP20400 
SMP20410 
SMP20420 
SMP20430 
SBP20440 
SMP20450 
SMP20460 
SMP20470 
SMP20480 
SHP20490 
SBP20 500 
SMP20510 
SMP20520 



I 



0000381 


41 EO 


4000 


012CI 


53 


BAL 


E14,CST0P 


00003EI 


41 EO 


4000 


012CI 


54 


BAL 


R14,C3T0P 


00001*41 


41 FO 


4000 


02461 


55 


BAL 


R15,REH(!r 


00004AI 


41 EO 


4000 


01081 


56 


BAL 


K14,CCLEAE 


0000501 


41F0 


4000 


01721 


57 


BAL 


B15,SELSErW 


OQ0Q56I 


41E0 


4000 


Q14SI 


58 


BAL 


B14,HRB0F 


00005CI 


2432 






59 


LIS 


R3,2 


00005EI 


41 EO 


4000 


011AI 


60 


BAL 


B14,CDENS 


0000641 


4860 


FF9E 


=0000061 


61 


LH 


R6, BYTES 


0000681 


C360 


0001 




62 


THI 


R6,lfD00V 


000O6CI 


4330 


4000 


00781 


63 


BZ 


SMP2.002 


0000721 


41E0 


4000 


01141 


64 


BAL 


R14,CMB0DBY 


0000781 


41 EO 


4000 


010EI 


65 


SHP2.002 BAL 


R14,CaRirE 


00007EI 


41E0 


4000 


01381 


66 


BAL 


R14,CG3 


0000841 


5A60 


FF80 


=0000081 


67 


A 


R6,BASE 


0000881 


41 EO 


4000 


01441 


68 


SBP2.003 BAL 


814,SENSrA2 


00008EI 


4380 


4000 


OOAOI 


69 


BHC 


SMP2.004 


0000941 


2761 






70 


SIS 


H6,1 


0000961 


4230 


FFEE 


=0000881 


71 


BHZ 


SHP2.003 


00009AI 


4300 


4000 


02721 


72 


B 


ERROR 


OOOOAOI 


41F0 


4000 


01C0I 


73 


SSP2.004 BAL 


R15,SELCHK 


OO0OA6I 


41F0 


4000 


01D8I 


74 


BAL 


815,SELEND 


OOOOACI 


41F0 


4000 


02041 


75 
76 
77 


BAL 

* 


RIS.SrATCHK 


0000B2I 


41 FO 


4000 


02461 


BAL 


B15,REWMT 


0000B8I 


41F0 


4000 


01A8I 


78 


BAL 


HIS.SELSETB 


OOOOBEI 


41E0 


4000 


015AI 


79 


BAL 


R14,REBUF 


0000C4I 


41 EO 


4000 


01201 


80 


BAL 


R14,CREAD 


OOOOCAI 


41E0 


4000 


013EI 


81 


BAL 


R14,CG0BEAD 


OOOODOI 


48 60 


FF32 


=0000061 


82 


LH 


B6, BITES 


0000D4I 


5A60 


FF30 


=0000081 


83 


A 


R6,BA3E 


000OD8I 


41 EO 


4000 


01441 


84 


SMP2.005 BAL 


R14,SENSTA2 


OOOODEI 


4380 


4000 


OOFOI 


85 


BHC 


SHP2.006 


0000E4I 


2761 






86 


SIS 


B6,1 


O000E6I 


4230 


FFEE 


=0000081 


87 


BNZ 


SHP2.005 


OOOOEAI 


4300 


4000 


02721 


88 


B 


ERBDR 


OOOOFOI 


41F0 


4000 


01C0I 


89 


SMP2.006 BAL 


B15,SELCHK 


0000F6I 


41F0 


4000 


Q1D8I 


90 


BAL 


R15,SELEND 


OOOOFCI 


41F0 


4000 


02041 


91 


BAL 


R15,STATCHK 


0001021 


4300 


4000 


2721 


92 


B 


TSTEND 



PA3E 2 09:50:02 12/07/81 

STOP THE SELCH 
INIT THE SELCH 
BEHIND THE TAPE 
CLEAE THE INTERFACE 
SET OP THE WaiTE BUFFEE 

5250 DENSITY 

3IVE DENSITY C0K!1AND 

GET BYTES VALUE 

IS II AN ODD VALUE? 

IF NOT, SKIP 

ISS ODD BYTE COMMAND 

POT IN HBITE MODE 

GIVE SELCH THE S3 

A TIME VALUE 

SELCH STATUS 

HAIT FOR SELCH TO FINISH 

DECBEMENT TIMER 

CONTINUE WAIT 

CHECK ENDING STATUS OB SELCH 
CHECK ENDING ADDB 
CHECK INTERFACE STATUS 

REWIND NAG TAPE 
SET UP READ ADDRESS 

PUT INTERFACE IN BEAD MODE 



CHECK SELCH STATUS 

DECBEMENT TIMER 

ERROR ROUTINE 
CHECK SELCH STATUS 
CHECK ENDING ADDR 

END SAMPLE PROGRAM 



SBP20530 
SHP20540 
SHP20550 
SHP20 560 
SSP20570 
SMP20 580 
SHP20590 
SMP20600 
SI1P20610 
SHP20620 
SMP20630 
SMP20640 
SMP20650 
SMP20660 
SBP20670 
SHP20680 
SMP20690 
SMP20700 
SSP20710 
SWP20720 
SHP20730 
SHP20740 
SHP20750 
SHP20760 
SMP20770 
SSP20780 
3HP20790 
SMP20800 
SMP20810 
SMP20820 
SHP20830 
SMP20840 
SMP20850 
SHP20e60 
SBP20870 
SMP20880 
SBP20890 
SMP20900 
SHP20910 
SBP20920 



■St 
O 
I 

o 
o 

o 
o 

w 
o 
o 



0001081 


DE10 


FFOO 


=0OO00CI 


94 


CCLEAR 


oc 


B1,CLEAB 


00010CI 


030E 






95 




BR 


R14 


00010EI 


DE10 


FEFB 


=0000001 


97 


CHRITE 


oc 


REWRITE 


0001121 


030E 






98 




BB 


S14 


0001141 


DE10 


FEF9 


=0000111 


100 


CHRODBY 


OC 


R1,aHT0DDBY 


0001181 


030E 






101 




BR 


R14 


00011AI 


DE13 


FEFO 


=O00OOEI 


103 


CDENS 


OC 


B1,DENSITY(R3) 


000 11 EI 


030E 






104 




BR 


B14 



CLEAR INTERFACE 
RETURN 

PUT INTERFACE INTO WRITE BODE 
BETURN 

USED FOR ODD BYTE AMOUNTS 
RETURN 

OUTPUT PROPER DENSITY 
BETURN 



SBP20940 
SMP20950 

SMP20970 
SHP20980 

SBP21000 
SBP21010 

SMP21030 
SMP21040 



o 

o 
o 

U3 



o 
o 

uo 
o 
o 



PA3E 



3* 
I 



0001201 
00012i»I 

0001261 
00012AI 

00012CI 
0001301 

0001321 
0001361 

0001381 
00013CI 

00013EI 
0001421 

oooiaai 

0001161 



oooiuei 

0001UCI 
0001501 
000151*1 
0001581 



00015AI 
00015EI 
0001621 
0001661 
00016AI 

00016CI 
00016EI 
0001701 



DE10 FEEE 
030E 

DE10 FEE<1 
030E 

DE20 FEE6 
030E 

DE20 FEE1 
030E 

DE20 FED8 
030E 

DE20 FED3 
030E 

9D23 
030E 



DA20 FEDS 
D820 FED2 
DA20 FEDS 
D820 FED2 
030E 



DA20 FEC7 
D820 FEC« 
DA20 FEC3 
D820 FECO 
030E 

9B23 
992D 
030E 



=0000121 
= 0000131 
=0000161 
=0000171 
=0000111 
=0000151 



=0000211 
=0000221 
=0000291 
=00002AI 



=0000251 
=0000261 
=0000291 
=00002AI 



0001721 


4860 


0001761 


2761 


0001781 


E630 


00017EI 


5030 


0001821 


2470 


0001841 


48 30 


0001881 


40 37 


00018EI 


2672 


0001901 


0576 


0001921 


4320 



FE90 =0000061 

4000 02801 
FE9E =0000201 

FE7A =0000021 
4000 02801 



FFF2 =0001881 



106 CBEAD 
107 

109 CREa 
110 

112 CSTdP 
113 

115 CSTOPS 
116 

118 CGO 
119 



124 
125 



128 
129 
130 
131 
132 



135 
136 
137 
138 
139 

141 
142 
143 

145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 



DC 

BB 



DC 
BR 



DC 

BB 



DC 

BR 



DC 
BB 



121 CGOREAD OC 

122 BR 



SEIISTA2 



SSB 
BB 



R1,8EAD 
B14 

B1, REMIND 
B14 

R2,3TDP 
B14 

B2,3TDP3 
B14 

R2.30 
B14 

S2,30READ 
B14 

B2,R3 
R14 
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PUT INTERFACE IN READ HODE 
RETUBN 

REHIND TAPE 
RETURN 

STOP SELCH 



INIT SELCS 
RETOBH 

GIVE SELCH THE GO 



GIVE SELCH THE GO FOE BEADS 
RETURN 



BETUBN 



127 * SET UP SELCH HfillE ADDBESSES 



HRBUF 



HD 
WH 
MD 
HH 
BR 



B2,HBUF+1 

B2,aBUF+2 

B2,EHDB0F+1 

R2,ENDB0F+2 

814 



BETUBN 



134 * SET UP EXPECTED SELCH BEAD ADDRESSES 



REBUF 



BEEND 



HD 
WH 
»D 
HH 
BB 



B2,BDBUF+1 

fi2,RDBUF+2 

B2,ENDBUF+1 

R2,ENDBUF+2 

B14 



RDR B2,R3 
EHB R2,R13 
BB R14 



RETURN 



RETURN 



THIS BODTINE SETS UP THE WRITE ADDBESSES 
OH THE SELCH AND SETS UP THE BUFFER THAT 
IS TO BE WRITTEN ONTO THE TAPE THROUGH 
THE SELCH. 



SELSETW 



SEL.1 



LH 

SIS 

LA 

STA 

LIS 

LH 

STH 

AIS 

CLAR 

BNP 



H6, BYTES 

R6,1 

R3,WRrBUF 

R3,WBUF 

R7,0 

H3,DATAPAT 

R3,HRrBUF(R7) 

R7,2 

R7,R6 

SEL.1 



GET BYTES VALUE 

ADJUST FOR HALFHORD WRITES 



CLEAR INDEX REGISTER 

LOAD DATA PATTERN 

FILL WRTBUF 

INCREMENT BUFFER ADDRESS 



SHP21060 
SHP21070 

SBP21090 
S(1P21100 

S(1P21120 
5HP21130 

SBP21150 
SMP21160 

SSP21180 
SHP21190 

SHP21210 
SHP21220 

SHP21240 
SI1P21250 

SI1P21270 
SHP21280 
SHP21290 
SSP21300 
SMP21310 
SMP21320 

SHP21340 
3SP21350 
SHP21360 
SMP21370 
SHP21380 
SHP21390 

SKP21410 
SMP21420 
SMP21430 

SBP21450 
SHP21460 
SI1P21470 
SMP21480 
SMP21490 
SBP21500 
SBP21510 
SBP21520 
SBP21530 
SMP21540 
SBP21550 
SBP21560 
SBP21570 
SBP21580 
SBP21590 
SBP21600 



3» 
( 



PftGE 



05:50:02 12/07/81 



O 
I 

O 

o 

•n 
o 
o 

■-x) 
o 
o 



0001961 


41E0 


FF92 


=00012CI 


161 






BAL 


R14,C3rOP 




00019AI 


E630 


4000 


02801 


162 






Li 


R3.»RTBUF 




ooonoi 


0A6 3 






163 






AH 


R6,R3 


CALCULATE ENDING ADDS 


O0OU2I 


5060 


FES 2 


=0000281 


164 






ST 


Re.EKDBUF 


SAVE IT 


oooiAei 


030F 






165 
157 


* 




BR 


R15 


RETURN 










168 


* 


THIS 


ROUTINE 


SETS OP THE 3ELCH READ ADDRESSES. 










169 


* 










0001A8I 


E650 


4000 


68 01 


170 


SELSETE 


1 LA 


R5,READBUF 


GET START ADDR 


OOOIAEI 


50 50 


FE72 


=0000241 


171 






STA 


R5,RDBUF 




0001B2I 


4860 


FE50 


=0000061 


172 






LH 


R6, BYTES 


GET BYTES VALUE 


0001B5I 


2761 






173 






SIS 


86,1 


ADJUST 


0001B8I 


0A56 






174 






AR 


R5,86 


CALCULATE END ADDBESS 


0001BAI 


5050 


FE6A 


=0000281 


175 






ST 


BS.ENDBUF 


SAVE IT 


0001BEI 


030F 






176 
178 


* 




BR 


R15 


RETUBN 










179 


* 


THIS 


BOUTISE 


IS USED TO CHECK 


THE SELCH 










180 


« 


ENDIHG STATUS. 












181 


V 










OOO1C0I 


<t1E0 


FFBO 


=0001441 


182 


SELCHK 


BAL 


B14,SENSTA2 


GET SELCH STATUS 


OOOICfl 


1*1 EO 


FF64 


=00012CI 


183 






BAL 


814,C3I0P 




0001C8I 


U1E0 


FF66 


=0001321 


134 






BAL 


R14,CST0PS 




0001CCI 


C530 


0000 




185 






CLHI 


B3,0 


C3BBECT STATUS7 


O001D0I 


033F 






186 






BER 


S15 


RETUBN IF YES 


0001D2I 


4300 


4000 


02721 


187 
189 


* 




B 


ERBDB 












190 


« 


THIS 


ROUTINE 


CHECKS THE SELCH 


ENDING ADDBESSES 










191 


* 


FOR WRITES AND READS. 












192 


* 










0001D8I 


1*1 EO 


4000 


02401 


193 


SELEND 


BAL 


R14,CEXTD 




0001DEI 


UIEO 


FF8A 


=OQ016CI 


194 






BAL 


R14,REEND 




0001E2I 


3433 






195 






EXHR 


B3,R3 




OOOIEitl 


06 3D 






196 






OAR 


R3,B13 




0001E6r 


5030 


FE32 


=00001CI 


197 






STA 


R3,ST0PADDR 




0001EAI 


41 EO 


FF3E 


=00012CI 


198 






BAL 


R14,C3r3P 


STOP SELCH 


0001EEI 


41 EO 


4000 


02261 


199 






BAL 


R14,SEMSTA 




OOOIFKI 


58 50 


FE24 


=00001CI 


200 






LDA 


a5,ST0PADDR 




0001F8I 


5550 


FE2C 


=0000281 


201 






CLi 


R5,ENDBUF 


CDBRECT ENDING ADDBESS 


0001FCI 


033F 






202 






BER 


R15 


YES, RETURN 


0001FEI 


4300 


4000 


27 21 


203 
205 


* 




B 


ERROR 












206 


* 


THIS 


ROUTINE 


CHECKS THE SELCH 


ENDING STATUS. 










207 


* 










00020i»r 


41E0 


4000 


02261 


208 


STATCHK 


BAL 


814,SENSTA 




00020AI 


C330 


0001 




209 






THI 


B3,X'01' 


IS DBIVE DO? 


000 20 EI 


42 30 


4000 


02721 


210 






BNZ 


ERROR 


YES, TELL USER 


000211H 


41 EO 


4000 


022AI 


211 






BAL 


814,SENSTA1 


WAIT FOR NO MOTION 


00021AI 


C330 


OOCO 




212 






THI 


R3,X'C0' 


SEE IF ANY ERBOB STATU: 


00021EI 


4230 


4000 


02721 


213 






BNZ 


ERB3B1 


DETERMINE WHICH ONE 


0002241 


030F 






214 






BR 


B15 


OTHEBWISE RETURN 


0002261 


9D13 






215 


SEHSTA 


SSR 


R1,S3 


GET INTERFACE STATUS 



SMP21610 
SMP21620 
SSP21630 
SKP21640 
SHP21650 

SHP21670 
SKP21680 
SMP21690 
SMP21700 
SKP21710 
SHP21720 
SMP21730 
SHP21740 
SHP21750 
SHP21760 

SHP21780 
SMP21790 
SMP2ie00 
SBP21810 
SHP21820 
SHP21830 
SBP21840 
SHP218S0 
SnP21860 
SMP21870 

SKP21890 
SHP21900 
SBP21910 
SHP21920 
SHP21930 
SHP21940 
SHP21950 
SMP21960 
SMP21970 
SHP21980 
SHP21990 
SHP22000 
3HP22010 
SMP22020 
SHP2203Q 

SHP22050 
SMP22060 
SMP22070 
SMP22080 
SI(P22090 
SMP22100 
SMP22110 
SHP22120 
SHP22130 
SHP22140 
SMP22150 



o 

o 
o 

■TJ 

o 
o 

o 
o 



0002281 


030E 






216 




BR 


R14 


00022AI 


F800 


007F 


FFFF 


?18 


SENSTA1 


LI 


aO.rWFFFFF 


0002301 


9D13 






219 


SESSE1 


SSR 


B1,R3 


0002321 


021E 






220 




BOR 


R14 


0002341 


2701 






221 




SIS 


R0,1 


0002361 


4230 


FFF6 


=0002301 


222 




6NZ 


SEH3E1 


00023AI 


4300 


4000 


02721 


223 




B 


ERROR 


0002aOI 


DE20 


FDD4 


=0000181 


225 


CEXTD 


OC 


R2,EXTD 


0002l»4I 


030E 






226 




BR 


R14 


0002K6I 


41E0 


FFDC 


=0002261 


228 


RE(IMT 


BAL 


R14,SEII3TA 


0002i*AI 


0330 


0020 




229 




THI 


R3,X"20'- 


0002HEI 


023F 






230 




BNZR 


R15 


0002501 


41 EO 


FFD2 


=0002261 


231 




BAL 


814,SENSTA 


00025«I 


C330 


0010 




232 




THI 


R3,X'10' 


0002581 


4230 


4000 


02621 


233 




BKZ 


REW.2 


00025EI 


41E0 


FFC8 


=00022AI 


234 




BAL 


R14,SEHSTA1 


0002621 


41E0 


FECO 


=0001261 


235 


REW.2 


BAL 


R14,CREW 


0002661 


41 EO 


FFBC 


=0002261 


236 


REW.3 


BAL 


B14,SENSTA 


00026AI 


2042 






237 




BOS 


R£ri.3 


00026CI 


41 EO 


FFBA 


=00022AI 


238 




BAL 


B14,SEHSTA1 


0002701 


030F 






239 
240 


* 


BR 


R15 




0000 


02721 




241 


EBROR 


EQU 


* 




0000 


02723 




242 


EHR0R1 


KQU 


* 


0002721 


C200 


4000 


02781 


243 


TSTEND 


LPSW 


HAITI 


0002781 


0000 


8000 




244 


HAITI 


DCY 


8003 


00027CI 


0000 


02721 




245 




DC 


AdSTEND) 


0002801 








246 


WRTBOF 


DS 


1024 


0006801 








247 


READBOF 


DS 


1024 


000A801 








248 




END 
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RETU'SS 

TIBS LIMIT 

SET INTERFACE STATUS 
RETURN OS NO MOTION 
DECREMENT TIMER 



RETURN 



AT BOT ALREADY 
RETURN IF YES 

NO MOTION SET 

WAIT FOB NO MOTION 
REMIND THE TAPE TO BOT 

BAIT FOR TAPE TO GO INTO MOTION 

HAIT FQi? SO NOTION 

RETURN 

APPROPRIATE ERROR MESSAGE AMD EHBOB 
INFORMATION IS OUTPUT HERE. 
PUT PROCESSOR IN WAIT STATE 



ALLOCATE ENOUGH SPACE 



SRP22160 

SMP22180 
SMP22190 
SMP22200 
SHP22210 
SMP22220 
SMP22230 

SMP22250 
SMP22260 

SHP22280 
SHP22290 
SMP22300 
SBP22310 
SMP22320 
SSP22330 
SMP22340 
SHP22350 
SMP22360 
SMP22370 
SBP22380 
SHP22390 
SHP22400 
SBP22410 
SMP22420 
SHP22430 
SHP22440 
SMP22450 
SHP22460 
SMP22tt70 
SHP22480 



I 

U) 



I 



PA3E 



6 03:50:02 12/07/31 



o 
I 

o 
o 

ID 

o 
o 

o 
o 



ASSEHBLED BY CAL 03-066R08-00 

STABT OPTIONS: T=32,ERLST 

HO CSl ERfiORS 
HO CAL HABNIHGS 
2 PASSES 



(32-BIT) 



TABLE SPACE USED 



ABSTOP 


0000 


0000 


ADC 


0000 


0004 


BASE 


0000 


00081 


BITES 


0000 


00061 


CCLEAE 


0000 


01081 


CDENS 


0000 


011AI 


CEXTD 


0000 


02401 


CGO 


0000 


01381 


CGOREAD 


0000 


013EI 


CLEAR 


0000 


OOOCI 


CREAD 


0000 


01201 


GREW 


0000 


01261 


CSTOP 


0000 


012CI 


CSTOPS 


0000 


01321 


CMBITE 


0000 


010EI 


CHBODBT 


0000 


01141 


DATAPAT 


0000 


00021 


DEHSITY 


0000 


OOOEI 


D8IVADR 


0000 


OOOOI 


ENDBUF 


0000 


00281 


ERROR 


0000 


02721 


ERROR 1 


0000 


02721 


EXTD 


0000 


00181 


GO 


0000 


00141 


GOREAD 


0000 


00151 


IHPTOP 


0000 


0A80I 


LADC 


0000 


0002 


PURETOP 


0000 


OOOOP 


RO 


0000 


0000 


R1 


0000 


0001 


RIO 


0000 


OOOA 


R11 


0000 


OOOB 


R12 


0000 


OOOC 


R13 


0000 


OOOD 


R14 


0000 


OOOE 



R15 
R2 
R3 
R4 



0000 OOOF 

0000 0002 

0000 0003 

0000 0004 



3K 



31* 


67 


83 






















30* 


61 


82 


151 


172 


















56 


94* 
























63 


103* 
























193 


225* 
























66 


118* 
























81 


121* 
























32* 


33 


94 






















80 


106* 
























109* 


235 
























53 . 


54 


112* 


161 


183 


198 
















115* 


184 
























65 


97* 
























54 


100* 
























28* 


52 


156 






















34* 


35 


103 






















27* 


50 
























46* 


130 


131 


137 


138 


164 


175 


201 












72 


88 


187 


203 


210 


223 


241* 














213 


242* 
























42* 


225 
























38* 


39 


118 






















39* 


121 
























248 


























248 


























11* 


218 


221 






















12* 


50 


94 


97 


100 


103 


106 


109 


215 


219 








21* 


























22* 


























23* 


























24* 


142 


196 






















25* 


53 


54 


56 


58 


60 


64 


65 


66 


68 


79 


80 


81 


84 


95 


93 


101 


104 


107 


110 


113 


116 


119 


122 


125 


132 


139 


143 


161 


182 


183 


184 


193 


194 


198 


199 


208 


211 


216 


220 


226 


228 


231 


234 


235 


236 


238 












26* 


55 


57 


73 


74 


75 


77 


78 


39 


90 


91 


165 


176 


186 


202 


214 


230 


239 


















13* 


51 


112 


115 


118 


121 


124 


128 


129 


130 


131 


135 


136 


137 


138 


141 


142 


225 


















14* 


59 


103 


124 


141 


153 


154 


156 


157 


162 


163 


185 


195 


195 


196 


197 


209 


212 


215 


219 


229 


232 










15* 


52 

























o 
I 

o 
o 



o 
o 

o 
. o 



R5 


0000 


0005 


R6 


0000 


0006 


R7 


0000 


0007 


88 


0000 


0008 


E9 


0000 


0009 


RDBUF 


0000 


00241 


READ 


0000 


00121 


READBHF 


0000 


06801 


REBUF 


0000 


015AI 


HEEHD 


0000 


016CI 


aEH = 2 


0000 


02621 


REW.3 


0000 


02661 


REWIND 


0000 


00131 


REWHT 


0000 


02151 


SEL.1 


0000 


01881 


SELADR 


0000 


00041 


SELCHK 


0000 


01C0I 


SELEHD 


0000 


01D8I 


SELSSTB 


0000 


01A8I 


SELSETH 


0000 


01721 


SENSE 1 


0000 


02301 


SENSTA 


0000 


02261 


SENSTA1 


0000 


022AI 


SENSTA2 


0000 


oiam 


SMP2.002 


0000 


00781 


SMP2.003 


0000 


00881 


SMP2.004 


0000 


QOAOI 


SHP2.005 


0000 


00D8I 


SHP2.006 


0000 


OOFOI 


STATCHK 


0000 


02041 


STOP 


0000 


00161 


STOPADDE 


0000 


001 CI 


STOPS 


0000 


00171 


TSTEHD 


0000 


02721 


WAIT1 


0000 


02781 


WBOF 


0000 


00201 


tfEBUF 


0000 


01481 


WRITE 


0000 


OOODI 


WHIBUF 


0000 


02801 


HRTODDBY 


0000 


00111 



16* 

17* 
172 

18* 

19* 

20* 

45* 

36* 
170 

79 
141* 
233 
236* 

37* 

55 
157* 

29* 

73 

74 

78 

57 
219* 
199 
211 

68 

63 

68* 

69 

84* 

85 

75 

40* 

43* 

41* 

92 
243 

44* 

58 

33* 
153 

35* 



170 


17X 


174 


175 


200 


201 


61 


62 


67 


70 


82 


83 


173 


174 










155 


157 


158 


159 







135 

37 
247* 
135* 
194 
235* 
237 
109 

77 
160 

51 

89 

90 
170* 
151* 
222 
208 
218* 

84 

65* 

71 

73* 

87 

89* 

91 

41 
197 
115 
243* 
244* 
128 
128* 

97 
157 
100 



136 
106 



228* 



162* 
19 3* 



215* 

234 

124* 



20 8* 
112 
20 

24 5 

129 



162 
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86 151 152 



159 



163 



164 



171 



228 
238 
182 



231 



236 



154 



246* 



I 



SA?1FLE PROGRAM 3: WRITES AND READS TO AND FROM A TAPE VIA A 
BUS UNDER INTERRUPTS. 



MUX 



LOAD MAG 
TAPE ADDRESS 



SETUP INTERRUPT 
SERVICE TABLE 



ENABLE 
PROCESSOR 
INTERRUPTS 



LOAD DATA 
PATTERN 



SET UP INTERRUPT 
ADDRESS 



DISARM 
INTERFACE 
INTERRUPTS 



ENABLE 
PROCESSOR 
INTERRUPTS 



DISARM 
INTERFACE 
INTERRUPTS 



REWIND THE 
MAG TAPE 
BAL REWMT 



LOAD RECORD 
VALUE 



G> 



CLEAR THE 
INTERFACE 



WRITE HALFWORD 
TO TAPE 



LOAD 
SMALL BYTES 



LOAD INTERRUPT 
ADDRESS 




DECREMENT 

BYTE COUNT 

BY 2 



ENABLE 
PROCESSOR 
INTERRUPTS 




WAIT FOR 

NON BUSY 

BALSENSTA3 



CHECK INTERFACE 

STATUS FOR DU OR 

ERROR STATUS 

BALSTACHK 



LOAD BYTES 
VALUE 



ADJUST BYTE 

COUNT FOR 

THOSE WRITTEN 




•'BYTES ODD? 



ISSUE WRITE 
ODD BYTE 
COMMAND 



WAIT FOR 

NON BUSY 

BAL SENSTA3 



SET UP INTERRUPT 
ADDRESS 



t 



ENABLE PROCESSOR 
'INTERRUPTS 



E^ 



WRITE A 

HALFWORD 

TO TAPE 



PUT INTERFACE 
ON WRITE MODE 





DECREMENT 

BYTE COUNT 

BY 2 





CHECK INTERFACE 

STATUS FOR DU 

OR ERROR STATUS 

BAL STATCHK 



A-1fi 



50-009 FOO RCO 



DISABLE 
INTERFACE 
INTERRUPTS 



SET UP 

INTERRUPT 

ADDRESS 




^ 



CHECK INTERRUPT 

STATUS FOR DU 

OR ERROR 

BAL STATCHK 



DISARM 

INTERFACE 

INTERRUPTS 




3 



DECREMENT 

RECORD COUNT 

BY 1 




RD\ N /^~\ 

MT >>— — *v''*y 



PUT INTERFACE 

INTO 

READ MODE 




3 



SENSE STATUS 
OF TAPE 




-Ttstend^ 



LPSW X'8000' 
HALT PROCESSOR 



50-009 Foo ■:joo 



P-17 



o 
I 

o 
o 
<x> 

f^ 
o 
o 

£d 
o 
o 



TsENSTAI ) 



LOAD A 
TIME LIMIT 



SENSE STATUS 
OF INTERFACE 




DECREMENT 

TIME LIMIT 

BYl 




f errorJ 



RETUR 



D 



/''"SENSTAS^ 



LOAD A 
TIME LIMIT 



(rewmtj 



SENSE STATUS 
OF INTERFACE 





!^ — »/return") 6* 



DECREMENT 
TIME LIMIT 



GIVE REWIND 
COMMAND 




Jil/TIME LIMIT'O 



WAIT FOR 

NO MOTION 

RESET 



f ERROR ) 



WAIT fOR 

NO MOTION 

TO SET 



^RETURN J 



WAIT FOR 
NO MOTION 

STATUS 
BAL SENSTA1 



Tstatchk) 



SENSE INTERFACE 
STATUS 




SENSE STATUS 

AND WAIT FOR 

NO MOTION 



^return) 



(error) 



OUTPUT 

APPROPRIATE 

ERROR MESSAGE 



OUTPUT 

SUSPECTED 

FAILING UNIT 



r END test) 



-*C ERROR^ 




errorJ 



en 
o 
I 

o 
o 



O 
O 

'.Xt 

o 
o 



PAGE 



1 10:32:31 12/10/81 



PROG = 



►NONE* 



RSSEHBLED BY CAL 03-056B08-00 {32-Bir) 





0000 


0000 




0000 


0001 




0000 


0002 




0000 


0003 




ocoo 


0004 




0000 


0005 




0000 


0006 




0000 


0008 




0000 


0009 




0000 


OOOA 




0000 


OOOC 




0000 


OOOD 




0000 


OOOB 




0000 


OOOF 


OOOOOOI 


0085 




0000021 


1234 




0000041 


OOFF 




0000061 


007F 




0000081 


OOOA 


5000 


OOOOOCI 


70F0 




OOOOOEI 


0000 




0000101 


0960 






0000 


00111 


0000121 


0818 




0000141 


280B 






0000 


00151 


0000161 


40 EO 






0000 


00171 


0000181 


4868 






0000 


00191 


00001AI 


C8C0 






0000 


001BI 



3* 
I 



00001CI 4810 FFEO =0000001 

0000201 08C1 

0000221 91C1 

0000241 CACO OODO 

0000281 4840 FFD6 =0000021 

00002CI 7330 FFDC =OOOOOCI 



1 




SCRAT 




2 




CROSS 




3 




WIDTH 


120 


4 




TARGT 


32 


5 


* 






6 
7 

8 


♦ SAMPLE 


PROGRAM 3 


* THIS SAMPLE 


PROGRAM IS 


9 


* WRITE 


AND READS TO THE 


10 


* MULTIPLEXOR 


BUS UNDER I 


11 


* 






12 


* REGISTER ASSIGNMENTS 


13 


BO 


EQU 





14 


R1 


EQU 


1 


15 


R2 


EQU 


2 


16 


R3 


EQU 


3 


17 


R4 


EQU 


4 


18 


R5 


EQU 


5 


19 


R6 


EQU 


6 


20 


S8 


EQU 


8 


21 


B9 


EQU 


9 


22 


RIO 


EQU 


10 


23 


B12 


EQU 


12 


24 


R13 


EQU 


13 


25 


R14 


EQU 


14 


26 


B15 


EQU 


15 


27 


DBIVADR 


DCX 


85 


28 


DATAPAT 


DCX 


1234 


29 


BYTES 


DCX 


FF 


30 


RECORDS 


DCX 


7F 


31 


BASE 


DCY 


A5000 


32 


PSH3 


DCX 


70FO 


33 


STATUS 


DCX 


0000 


34 


CLEAR 


DCX 


0963 


35 


WRITE 


EQU 


CLEAR+1 


36 


DENSITY 


DCX 


0818,2808 


37 


WRTODDBY 


EQU 


DEN3ITY+3 


38 


READ 


DCX 


40E0 


39 


REWIND 


EQU 


READ+1 


40 


ENABLE 


DCX 


4888 


41 


DISABLE 


EQU 


SNABLE+1 


42 


DISARM 


DCX 


C8C0 


43 


WREOF 


EQU 


DISARM+1 


44 


* 






45 


* START 


PROGRAM 


46 


♦ 






47 




LH 


R1,DRIVADH 


48 




LR 


B12,R1 


49 




SLHLS 


R12,1 


50 




AH I 


R12,X'D0' 


51 




LH 


84, DATAPAT 


52 




LHL 


R3,PSW3 



DRIVE ADDRESS 
DATA PATTERN 
BYTES PER RECORD 
RECORD VALUE 

ENABLE PROCESSOR INT 

STORAGE 

CLEAR THE INTERFACE 

INTERFACE INTO WRITE MODE 

1600, 6250, 800 DENSITY 

WRITE ODD AMOUNT BYTES 
INTERFACE INTO READ MODE 
REWIND THE MAG TAPE 
ENABLE INTERFACE INTERRUPTS 
DISABLE INTERFACE INTERRUPTS 
DISARM INTERFACE INTERRUPTS 
WRITE END OF FILE MARK 



GET DRIVE ADDBESS 

SET UP INTERRUPT ADDBESS TABLE 



GET DATA PATTERN 
GET PSW 70F0 



SMP30010 
SHP30020 
SHP30030 
SMP30040 
SMP30050 
SMP30060 
SKP30070 
SMP30080 
SMP30090 
3MP30100 
SHP30110 
SHP30120 
SMP30130 
SHP 30140 
SMP 30150 
SMP30160 
SSP 30170 
SMP 30180 
SMP30190 
SMP30200 
SMP30210 
SMP30220 
SHP 30230 
SMP 30240 
SMP30250 
SMP 30260 
SHP30270 
SMP30280 
SMP 30290 
SBP30300 
SMP30310 
SHP30320 
SMP 30330 
SHP30340 
SMP 30350 
SMP30360 

SMP30 370 
SMP30380 
SMP30390 
SMP30400 
SMP30410 
SHP 30420 
SMP30430 
SHP30440 
SHP30450 
SMP30460 
SMP 30470 
SHP30480 
SMP30490 
SHP30500 
SHP30510 
SHP30520 



3» 
I 

O 



O 
I 

o 
o 

IT) 

o 
o 

o 
o 



0000301 
0000321 
0000381 
00003EI 
0O0OH2I 
0000481 
OOOOKCI 
OOOOitEi 
0000521 
0000581 



00009AI 
00009EI 
OOOOAOI 
0000A6I 
OOOOAAI 
OOOOACI 
0000B2I 
OOOOBUI 
0000B6I 
OO0OB8I 
OOOOBEI 
OO00C2I 
0000C8I 
OOOOCEI 
OOOODOI 
G000D2I 
00O0D8I 
OOOODEI 
OOOOEUT 



95E3 
KIEO 
41F0 
7360 

n^^.o 

73S0 
2781 
C380 
tt230 
UIEO 



ilOOO 02C6I 
4000 032ET 
FFC4 =0000061 
4000 02961 
FFB8 =0000041 

0001 

4000 005EI 

4000 02A2T 



00005EI 


0858 






0000601 


7330 


FFA8 


= 0000 


0000641 


95E3 






0000661 


£630 


4000 


009AI 


00006CI 


40 3C 


0000 




0000701 


41E0 


4000 


02BAI 


0000761 


2432 






0000781 


41E0 


4000 


02A8I 


00007EI 


4ii;o 


4000 


029CI 


0000841 


C800 


7FFF 




0000881 


41E0 


4000 


035AI 


OOOOBEI 


E650 


4000 


03701 


0000941 


4300 


4000 


03621 



7330 
95E3 
E630 
403C 
24A4 
41E0 
9814 
27A2 
2336 
41E0 
4300 
41E0 
41E0 
2754 
9814 
F800 
41E0 
E650 
4300 



FF6F =OO0O0CI 



4000 OOEAI 
0000 



4000 02C6I 



4000 02D2I 

FFFO =0000821 

4000 02D2I 

4000 02BAI 



0000 7FFF 
4000 035AI 
4000 039AI 
4000 0362T 



53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
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EPSH H14,S3 KNABLE PROCESSO? INTERRUPTS 

HAL R14,CDISAPM DISARB AkY INTEPHUP'^S 

BAL E15,REWMT REWIND THE TAPE 

LHL R6, RECORDS GET RECORDS VALUE 

SMPS.OOO BAL R14,CCLEAE CLEAR INTERFACE 

LHL R8, BYTES GET BYTES VALUE 

SIS R8,1 ADJUST FOR HALWCRD OUTPUT 

TKI 38,X"000V IS BYTES VALUE OPD? 

BNZ SKPa.OOl NO 

BAL B14,CWR0DBY OTHERWISE, ISSUE ODD BYTE COHSAHD 

* 

* ENABLE INTERRUPTS AND WAIT FOR THE INTERRUPT' 

* ON BUSY RESET AFTER WRITE. 



SHP3.001 LR 
LHL 
EPSR 
LA 
STH 
BAL 
LIS 
BAL 
BAL 
LHI 
BAL 
LA 
3 



R5,R8 

E3,PSW3 

R14,R3 

R3,SHP3.O02 

R3,0(R12) 

R14,CE>iBLE 

R3,2 

R14,CDENS 

R14,CWRITE 

R0,X'7FFF' 

R14,TIH0UT 

R5,SBP3.E00 

ERROR 



DISARM INTERRUPTS INITIALLY TO 
AN INTERRUPT WILL NOT OCCUR ON 
THEN ENABLE INTERRUPTS TO VEEI 
WILL OCCUR ON EACH WRITE BUSY 



SHP3.002 LHL 
EPSR 
LA 
STH 
LIS 
BAL 

SMP3.003 HHR 
SIS 
BZS 
BAL 
B 

SHP3.0A3 BAL 
BAL 
SIS 

SHP3.005 WHR 
LI 
BAL 
LA 
B 



R3,PSW3 

R14,R3 

R3,SHP3.004 

R3,0(R12) 

RIO, 4 

E14,CDISARH 

R1,R4 

RIO, 2 

SMP3.0A3 

R14,SENSTA3 

SHP3.003 

R14,SENSTA3 

R14,CENBLE 

R5,4 

R1,R4 

R0,Y'7FFF' 

R14,TI!10nT 

R5,SBP3.E01 

ERROR 



LOAD BYTES INTO TEHP REGISTER 
PSW 7OF0 

ENABLE PROCESSOR INTERRUPTS 
INTERRUPT ADDRESS 

ENABLE INTERRUPTS 

INDEX FOR 6250 DENSITY 

OUTPUT DENSITY C01HAND 

ISSUE WRITE COWHAND 

TIBER VALUE 

WAIT FOR INTERRUPT 

NO INTERRUPT GENERATED ON COBHAND WRI 

ERROR ROUTINE 

VERIFY THAT 
THE WRITE BUSY, 
FY THAT INTERRUPTS 

RESET. 

PSW 70F0 

ENABLE PROCESSOR INTERRUPTS 

INTERRUPT ADDRESS: 

IN- INTERRUPT TABLE 

BYTE NUBBER 

DISARB INTERRUPTS 

WRITE TO TAPi^CNO INTERR7PT3) 

DECREMENT COUNTER 

JUBP OUT 

WAIT FOR HON BUSY 

CONTINUE WRITE 

WAIT FOR NON BUSY 

ENABLE INTERRUPTS 

ADJUST PYTF COUNT FOR THOSE WRITTEN 

TIBE VALUE 

WAIT FOE INTERRUPT 

NO INTERRUPT GEN ON BSY AFTER WRITE 

ERROR ROUTINE 



* EXPECT A »0 MOTION INTERRUPT AFTER COMPLETING THF WRITES 



SBP30530 
S«P30540 
SBP30550 
"5BP305fi0 
SBP30570 
S>^P30580 
«:BP30590 
SHp 30600 
SBP30610 
SBP30<;20 
SBP30530 
SMP30640 
SBP30650 
SBP30660 
SBP30fi70 
SBP30680 
SBP30690 
SBP30700 
SBP30710 
S''P30720 
SBP30730 
SBP30740 
SBP307S0 
SBP30760 
SBP30770 
SBP30780 
SBP30790 
SBP30800 
SBP30810 
SBP3O820 
SBP30830 
SBP308l(n 
SBP30850 
SBP30S60 
SBP30870 
SHP3nP80 
SHP30R90 
SBP30900 
SBP30910 
SBP30920 
SBP30930 
SBP30940 
SBP30950 
SBP30O60 
SBP30970 
SBP30980 
S»'P30990 
SBP31000 
SBP31010 
SHP31020 
SBP31030 
SMP31040 
SBP310S0 
SBP31060 
SBP31070 



(Jl 
o 
I 

o 
o 



c 

o 



o 

o 



i 



OOOOEAI 
OOOOEEI 
OOOOFOI 
0000F2I 
0000F6I 
OOOOFCI 
0001001 
0001061 
00010CI 
0001121 



0001181 
00011CI 
00011EI 
00012UT 
0001281 
00012EI 
0001301 
0001341 
00013AI 
00013EI 

oooiam 

00014AI 
0001501 
0001561 
00015CI 



0001621 
0001661 
0001681 
00016EI 
0001721 
0001781 
00017EI 
0001841 
00018AI 
0001901 



0001961 
00019AI 
00019CI 
0001A0I 
OOOIAHI 
0001A8I 
OOOUAI 
0001BOI 



7330 FF1E =0OOO0CI 

95E3 

2752 

U380 FFDA =OOOCDOI 

E630 4000 01181 

403C 0000 

F300 007F FFFF 

41E0 4000 035AI 

E650 4000 03C6I 

4300 4000 03621 



7330 
95E3 
41P0 
C430 
4230 
2761 
4230 
E630 
403C 
FSOO 
41E0 
41E0 
E650 
4300 
41F0 



FEFO =00000CI 
02F2I 
01621 



4000 
0020 
4000 



FFOE 
4000 
0000 
007F 
4000 
4000 
4000 
4000 
4000 



=0000421 
01 SCI 

FFFF 

02CCI 

035AI 

03F2I 

03621 

02F2I 



=00OO0CI 



7330 FEA6 

95E3 

E630 4000 01961 

403C 0000 

41E0 4000 02BAI 

F800 007F FFFF 

41E0 4000 02B4I 

41E0 4000 035AI 

E550 4000 04221 

4300 4000 03621 



7330 FE72 =OOO0OCI 

95E3 

7340 VE62 =0000021 

7360 FE62 =0000061 

7380 FE5C =0000041 

2781 

2630 4000 01D4I 

403C 0000 



108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
12"= 
126 
127 
12? 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 



SMP3.004 LHi 
EPSR 
SIS 
BNL 
LA 
STH 
LI 
BAL 
LA 
B 



E3,PSH3 

B14,R3 

R5,2 

SHP3.005 

S3,SHP3.009 

B3,0(R12) 

R0,Y'7FFFFF' 

R14,TII100T 

R5,saP3.E03 

ERRO" 
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ENABLE PROC INT AND REG SFT F 

DECREMENT BYTE COUNT 
CONTINUE HBITF C'JTPUT 
INTERRUPT ADDRFSS 
IN INTERRUPT TABLE 

HAIT FOR NHTH INTERRUPT 

NO INTERRUPT GEN ON WNTN AFTER WRITE 

EBSOR ROUTINE 



* CHECK THE INTERFACE STATUS AND THFN HAIT FO" 

* AS INTERRUPT ON BUSY RESET AFTER WHITE EOF. 



SHP3.009 LHL 
EPSR 
BAL 
NHI 
BNZ 
SIS 
BNZ 
LA 
STH 
LI 
BAL 
BAL 
LA 
B 

SHP3.00C BAL 



F3,PSH3 

B14,R3 

R15,STATCHK 

R3,X'20' 

SBP3.00B 

R6,1 

SHP3.000 

R3,SI1P3.00C 

R3,0{H12) 

R0,Y'7FFFFF' 

R14,CHRE0F 

R14,TIM0UT 

E5,SMP3.E04 

ERROR 

R15,STATCHK 



PSW 70F0 

ENABLE PROCFSSOR INTERRUPTS 

CHECK STATUS 

IS TAPE AT EOT? 

YES, REWIND AND READ 

OTHERWISE, DECREMENT RECORD COUNT 

AND OUTPUT ANOTHER RECORD 

INTERRUPT ADDRESS 

INTO INTERRUPT TABLE 

TIKE VALUE 

WRITE AN END OF FILE HARK 

WAIT FOR INTERRUPT 

NO INTERRUPT GEN ON WRITE EOF 

ERROR ROUTINE 

CHECK STATUS 



BEGIN READS HERE. 

WAIT FOE NO MOTION INTERRUPT AFTER THE REWIND. 



SMP3.00B LHL 
EPSR 
LA 
STH 
BAL 
LI 
BAL 
BAL 
LA 
B 



R3,PSW3 

E14,R3 

R3,SKP3.00D 

R3,0(R12) 

E14,CENBLE 

R0,Y'7FFFFF' 

E14,CEEW 

R14,TIH0UT 

E5,SWP3.E05 

ERROR 



PSW 70F0 

ENABLE PROCESSOR INTERRUPTS 

INTERRUPT ADDRESS 

INTO INTERRUPT TABLE 

ENABLE INTERRUPTS 

TIME VALUE 

REWIND TAPE 

WAIT FOR INTERRUPT ON NHTN 

NO INTERRUPT GEN ON REWIND 

EERO ROUTINE 



PUT THE INTERFACE IN THE READ MODE AND CAUSE 
AN INTERRUPT OK BUSY RESET. 



SSP3.00D LHL 
EPSE 
LHL 

LHL 
SHP3.00E LHL 
SIS 
LA 
STH 



R3,PSW3 
R14,R3 
E4,DATAPAT 
R6, RECORDS 
R8, BYTES 
P8,1 

R3,SHP3.00F 
R3,0(R12) 



ENABLE INTERRUPTS 

GET RECORDS VALUE 

GET BYTES VALUE 

ALLOW FOR HALFWOED TRANSFER 

STORE INTO INTERRUPT TABLE 



SMP31080 
SMP31090 
SMPSHOO 
SMP31110 
SMP31120 
S1P31130 
S!1P31140 
S*P31150 
SMP31160 
S'!P31170 
SMP31180 
•?^P31190 
S15P31200 
<;MP31210 
SHP31220 
SHP31230 
SMP31240 
SMP31250 
SHP312S0 
«HP31270 
SMP31280 
SXP31290 
S1IP31300 
SHP31310 
S1P31320 
SBP31330 
SHP313U0 
S1P313S0 
SMP31360 
S1P31370 
SHP31380 
SHP31390 
SHP31ttOO 
SHP31410 
S1»P31420 
5HP31430 
SBP31440 
SMP31450 
SHP31460 
SHP31470 
'5BP31480 
SHP31U90 
SHP31500 
SnP31510 
SHP31520 
SHP31530 
<?MP31540 
SHP31550 
SMP31560 
?MP31'570 
SMP31580 
??'P31590 
«:MP31600 
SWP31610 
S'!P31620 



3=" 
I 



PA3E 



O 
I 
O 

o 

o 
o 

CO 

o 
o 



OOOIBUI 
0001B6I 
0001SCI 
0001C2I 
0001C8I 
000 1CEI 



OOOIDiH 
0001D8I 
0001DAI 
0001E0I 
0001E6I 
0001ERI 
0001F0I 
0001F6I 
0001FAI 
0001FCI 
0001FEI 
000 2021 
00020SI 
00020EI 
0002121 
0002181 
00021EI 



0002241 
0002281 
00022AI 
0002301 
0002361 
00023CI 
0002ltOI 
000246I 
0002481 



00024CI 
0002521 
0002561 
00025CI 

0002621 
0002681 
00026EI 



0002741 
0002781 
00027 AI 



0858 

F800 0007 FFFF 

41E0 4000 02AEI 

41E0 4000 035AI 

E650 4000 044CI 

4300 4000 03621 



7330 
95E3 
41E0 
E6 30 
403C 
E690 
41 EO 
D919 
2692 
2752 
4380 
41E0 
41 EO 
C800 
41E0 
E650 
4300 



FE34 =00000CI 

4000 02C0I 

4000 02241 

0000 

4000 051CI 

4000 02D2I 

0000 



FFEE =0001FOI 

4000 03181 

4000 02BAI 

7FFF 

4000 035AI 

4000 04801 

4000 03621 



7330 FDE4 =OO00OCI 

95E3 

41E0 4000 02C6I 

41F0 4000 02F2I 

41E0 4000 02BAI 

C330 0020 

4230 4000 03621 

2761 

4230 FF58 =0001A4I 



E630 4000 02741 
403C 0000 

F800 007F FFFF 

41E0 4000 02AEI 

41 EO 4000 035AI 

E650 4000 04ACI 

4300 4000 03621 



7330 FD94 =00000CI 

95E3 

41E0 4000 03141 



163 
164 
165 
166 
167 
158 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
133 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 



LR 


B5,B8 


LI 


K0,Y'0007FFFF' 


BAL 


B14,C8EAD 


BAL 


R14,TIB0UT 


LA 


H5,3HP3.E06 


B 


EBSOS 
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LOAD INTO A TEMPDKABY REGISTEB 

TIME VALUE 

ISStlE BEAD COHSAND 

WAIT FOR INTERRUPT 

NO INTERfiUPT GE ON BUSY AFTEB READ 

EEEOE ROUTIXE 



DISABLE INTERRUPTS AND PERFOEB THE ACTUAL READS. 



SMP3.00G 



SHP3.00F LHL 
EPSR 
BAL 
LA 
STH 
LA 
BAL 
EH 
AIS 
SIS 
BNL 
BAL 
BAL 
LHI 
BAL 
LA 
B 



R3,PSH3 

B14,R3 

R14,CDISBLE 

R3,SHP3.00H 

K3, 0(312) 

R9,READBUF 

B14,SENSTA3 

R1,D(R9) 

R9,2 

R5,2 

SHP3.00G 

R14,SENSTA1 

R14,CENBLE 

R0,X'7FFF' 

R14,TmOUT 

R5,3KP3.E07 

ERROR 



ENABLE PROCESSOR INTERRUPTS 

DISABLE INTEBBUPT3 

IHTEBRUPT ADDRESS 

STORE INTO TABLE 

LOAD BEABUF ADDRESS 

WAIT FOR NON BUSY 

BEAD INTO READBUF 

INCREMENT BEADBUF ADDRESS 

DECREHENT BYTE VALUE 

CONTINUE TIL FINISHED 

HAIT FOB NMTN 

ENABLE INTERRUPTS 

TIMEVALUE 

HAIT FOR INTERRUPT 

N3 INTERRUPT GEN OH NMTN 

ERROfi ROUTINE 



* DISARM INTERRUPTS AND CHECK INTERFACE STATUS 



SHP3.00H LHL 
EPSR 
BAL 
BAL 
BAL 
THI 
BNZ 
SIS 
BNZ 



B3,PSH3 

B14,R3 

E14,CDISAR« 

R15,STATCHK 

R14,CENBLE 

R3,X'20' 

TSTEND 

R6,1 

SHP3.00E 



PSW 70F0 

ENABLE PROCESSOR INTERRUPTS 

DISARM INTERRUPTS 

CHECK STATUS 

ENABLE INTERRUPTS 

TAPE AT EOT 

IS YES, END TEST. 

OTHERWISE, DECREHENT RECORD COUNT 

CONTINUE 



* READ THE EOF MARK AND WAIT FOR INTERRUPT 

* ON NMTN 



LA 


R3,3aP3.00I 


STH 


R3,0(R12) 


LI 


R0,Y'7FFFFF 


BAL 


R14,CREAD 


BAL 


ai4,TIH0UT 


LA 


R5,3MP3.E09 


B 


ERROR 



* CHECK FOR IMS FROM EOF 

* 

SMP3.00I LHL R3,PSW3 
EPSR R14,R3 
BAL R14,SENSTA 



INTERRUPT ADDRESS 

TIME VALUE 

ISSUE READ COMMAND 

WAIT FOR INTE8RUPT 

NO INTERRUPT GEN ON BEAD EOF 

ERROR ROUTINE 



ENABLE PROCESSOR INTERRUPTS 
SET STATUS 



SMP31630 
SHP31640 
SMP31650 
SMP31660 
SMP31670 
SMP31680 
SaP31690 
SBP31700 
SMP31710 
SHP31720 
SMP31730 
SMP31740 
SMP31750 
SMP31760 
SHP31770 
SMP31780 
SSP31790 
SMP31800 
SHP31810 
SHP31B20 
SBP31830 
SMP31840 
SMP31850 
SBP31860 
SBP31870 
SMP31880 
SHP31890 
SHP31900 
SMP31910 
SHP31920 
SHP31930 
SBP31940 
SBP31950 
SHP31960 
SHP31970 
SBP31980 
SBP3199G 
SMP32000 
SMP32010 
SBP32020 
SBP32030 
SMP32040 
SBP32050 
SMP32060 
SBP32070 
SHP32080 
SBP 32090 
SMP32100 
SMP32110 
SBP32120 
3BP32130 
SMP32140 
SBP 32150 
SBP32160 
SMP32170 



en 
o 
I 

o 



o 
o 

JO 

o 

o 



0002801 C330 0002 

0002841 l»230 UOOO 03621 

00028AI E650 KOOO OttDAI 

0002901 14300 i»000 03621 



218 
219 
220 
221 



THI 


E3,X'02' 


BKZ 


TSTEND 


LA 


H5,SHP3.E0A 


B 


EEBOS 



to 

U! 



0002961 


DE10 


FD76 


=0000101 


224 


CCLEAR 


DC 


El, CLEAR 


00029AI 


030t! 






225 




BE 


E14 


00029CI 


DE10 


FD71 


=0000111 


227 


CHRITE 


OC 


El, WRITE 


0002A0I 


030S 






228 




BB 


R14 


0002A2I 


DS10 


FD6F 


=0000151 


230 


CHRODBY 


OC 


R1,W5T0DDBY 


0002A6r 


030E 






231 




BE 


E14 


0002A8I 


DE13 


FD66 


=0000121 


233 


CDENS 


OC 


R1,DENSITY(R3) 


0002ACI 


030E 






234 




BB 


P14 


0002AEI 


D210 


FD64 


=0000161 


236 


CBEAD 


OC 


R1,READ 


0002B2I 


030E 






237 




BE 


B14 


0002B1I 


DE10 


FD5F 


=0000171 


239 


CREM 


OC 


E1,BEWISD 


0002B8I 


030E 






240 




BR 


R14 


0002BAI 


DE10 


FD5A 


=00001PI 


242 


CEN3LE 


OC 


F1, ENABLE 


0002BEI 


030E 






243 




BR 


R14 


0002C0I 


DE10 


FD55 


=0000191 


245 


CDISBLE 


DC 


B1, DISABLE 


0002C4I 


030E 






246 




BE 


E14 


0002C6I 


DE10 


FD50 


=00001AI 


248 


CDISAHM 


OC 


R1,DISARH 


0002CAI 


030E 






249 




BR 


E1U 


0002CCI 


DE10 


FD4B 


=oooeiBi 


251 


CW8E0F 


OC 


B1,WBE0F 


0002D0I 


030E 






252 




BR 


R14 


0002D2I 


F800 


007F 


FFFF 


254 


SENSTA3 


LI 


B0,Y*7FFFFF' 


0002D8I 


9D13 






255 


SENSTA3A 


SSR 


El, S3 


0002DAI 


aO30 


FD30 


=0O000EI 


256 




STH 


S3, STATUS 


0002DEI 


038E 






257 




BNCR 


B14 


0002EOI 


2701 






258 




SIS 


E0,1 


0002E2I 


4230 


FFF2 


=0002081 


259 




BHZ 


SENSTA3A 


0002E6I 


E650 


4000 


04FCI 


260 




LA 


E5,S«P3.E0B 


0002ECI 


4300 


4000 


03621 


261 




B 


EE80P 


0002F2I 


41E0 


4000 


03141 


263 


STATCHK 


BAL 


R14,SENSTA 


0002F8I 


C330 


0001 




264 




THI 


R3,X*0V 


0002FCI 


4230 


4000 


03621 


265 




BSZ 


ERSOR 


000 3021 


41E0 


4000 


03181 


266 




BAL 


E14,SENSTA1 


0003081 


C330 


OOCO 




267 




THI 


S3,X'C0' 


00030CI 


4230 


4000 


03621 


268 




BNZ 


ERE0B1 


0003121 


030F 






269 




BE 


E15 



PAGE 5 10:32:31 12/10/81 

EOF STATUS 

ITS OK, END TEST 

NO TAPE NAPK STATUS OH READ EOF 

ESEOR EOUTINE 



CLEAR INTERFACE 
EETUEN 



BETUBH 



RETURN 

OUTPUT PROPEE DENSITY 
RETURN 

PUT INTERFACE IN READ HODE 
BETUBH 

REWIND TAPE 
RETURN 



DISABLE INTERFACE 
RETURN 

DISARM INTERFACE 
RETURN 

WRITE END OF FILE 
RETURN 

TIHE LIBIT 



RETURN OH NOT BUSY 

DECREMENT COUNTER 

WAIT 

TIRED OUT WAITNG FOP BUSY 



IS DRIVE DU? 

YES, TELL USEE 

WAIT FOR NO NOTION 

SEE IF ANY ERROR STATUS BITS SET 

DETERMINE WHICH ONE 

OTHERWISE RETURN 



SMP321P0 
SHP32190 
SFP32200 
S'!P32210 



SHP32240 
SMP32250 

SHP32270 
SMP32280 

SHP32300 
SHP32310 

SWP32330 
SHP32340 

SHP32360 
SHP32370 

S''P32390 
SHP32400 

SHP32a20 
SKP32430 

S'!P32450 
SHP32460 

SMP32480 
SHP32490 

S»tP32510 
SKP32520 

SHP32540 
SMP32550 
S'!P32560 
SHP32570 
SMP32580 
SHP32590 
SMP32600 
SHP32610 

SKP32630 
StP32640 
SNP32650 
SMP32660 
SMP32670 
S'!P32680 
SHP32690 



3" 
i 
to 



00031i»I 
0003161 



9D13 
030E 



271 
272 



SENSTA 



SSB R1,R3 
BR E14 



PUGE 6 10:32:31 12/10/81 

SET INTERFACE STATUS 
RETUKK 



SBP32710 
SHP32720 



0003181 F800 007F FFFF 27i» 

00031EI 9D13 275 

0003201 021E 276 

0003221 2701 277 

00032ltl '♦230 FFF6 =00031EI 278 

0003281 1300 tOOO Q362I 279 



SENSTA1 
SENSE1 



il 

SSR 

BOR 

SIS 

6XZ 

B 



R0,r'7FFFFF' 

R1,R3 

R11» 

K0,1 

SEN3E1 

ERROR 



TIME LIBIT 

SET INTERFACE STATUS 
RETURN ON NO MOTION 
DECREMENT TIMER 



SMP327U0 
SMP32750 
SBP32760 
SnP32770 
SMP32780 
SBP32790 



O 
I 
O 

o 

VO 

T) 
O 
O 

*a 
o 
o 



00032EI 
0003321 
000 3361 
0003381 
00033CI 
000 3ttOI 
0003'»6I 
00034AI 
00034EI 
0003521 
0003541 
000 3581 

00035AI 
00035CI 
000 3601 



0003621 
0003681 
000 36CI 
0003701 
0003781 
0003801 
0003881 
0003901 
0003981 
00039AI 
0003A2I 
0003AAI 
0003B2I 
0003BAI 
000 3C2I 
0003C4I 
0003C6I 
0003CEI 
0003D6I 
0003DEI 
0003E6I 
0003EEI 
0003F0I 
00O3F2I 
0003FAI 
000402T 



41 EO FFE2 =0003141 

C330 0020 

023F 

41 EO FFD8 

C330 0010 

4230 4000 034AI 

41 EO FFCE 

41E0 FF66 

41 EO FFC2 

2042 

41 EO FFCO 

030F 



=0003141 



=0003181 
=0002841 
=0003141 

=0003181 



2701 

4230 FFFA =00035AI 

030E 



0000 
0000 
C200 
0000 
0000 
4E4F 
5255 
4552 
4E20 
4420 
ODOA 
4E4F 
5255 
4552 
4E20 
4654 
5445 
ODOA 
4E4F 
52 55 
4552 
204E 
5445 
4520 
ODOA 
4E4F 
5255 
4552 



03621 

03621 

4000 03681 

8000 

03621 

2049 4E54 4552 

5054 2047 454E 

4154 4544 204F 

434F 4D4D 414E 

5752 4954 4520 

2049 4E54 4552 
5054 2047 454E 
4154 4544 204F 
4255 5359 2041 
4552 2057 5249 



2049 4E54 4552 
5054 2047 454E 
4154 4520 4F4E 
4D54 4E20 4146 
5220 5752 4954 



2049 4E54 4552 
5054 2047 454E 
4154 4544 204F 



281 
282 
28 3 
28 4 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
29^ 
299 
300 
301 
302 
303 



RErfHT 



305 
306 



307 
308 



REM. 
REW, 



TIBOUT 



ERROR 
ERROR 1 
TSTEND 
HAITI 



BAL 
THI 
BNZR 
BAL 

THI 
BNZ 
BAL 
BAL 

BAL 
BOS 
BAL 
BS 

SIS 
BNZ 

BE 



EQU 

EQU 

LPSW 

DCY 

DC 

SMP3.E00 DC 



304 SBP3.E01 DC 



DCX 
SMP3.E03 DC 



SMP3.E04 



DCX 

DC 



R14, SENSTA 

R3,X"20' 

R15 

R14, SENSTA 

R3,X'10' 

REM. 2 

ai4,SENSTA1 

R14,CREH 

814, SENSTA 

REH.3 

R14,SENSTA1 

R15 

R0,1 
TIBOUT 

R14 



HAITI 

8000 

AdSTEND) 



AT BOT ALREADY 
RETURN IF YES 

NO MOTION SET 

HAIT FOR NO BOTION 
REHIND THE TAPE TO BOT 

HAIT FOR TAPE TO GO INTO MOTION 

HAIT FOR NO MOTION 

RETURN 

DECREMENT TIME VALUE 

RETURN TO ERROR MESSAGE 

OUTPUT APPROPRIATE ENGLISH LAN3UAGE 
ERROR MESSAGE AND INFO HERE. 
PUT PfiOCESSOR IN HAIT STATE 



C'ND INTERRUPT GENERATED OH COMMAND H8ITE' ,X'ODOA' 



C'ND I>(TERRUPT GENERATED ON BUSY AFTER HRITE" 



ODOA 

C'NO INTERRUPT GENERATE ON NMTH AFTER WRITE* 



ODOA 

C'ND INTERRUPT GENERATED ON BUSY AFTER HRITE EOF* 



SMP32810 
SMP32820 
SHP32830 
SMP32840 
SMP32850 
SHP32860 
SMP32370 
SMP32880 
SHP32890 
SBP32900 
SMP32910 
SHP32920 
SMP32930 
SHP 32940 
SMP32950 
SMP32960 
SHP32970 
SHP329eO 
SMP32990 
SMP33000 
SMP33010 
SSP33020 
SMP33030 



SMP33040 



SMP33050 
SMP33060 



SMP33070 
SMP330eO 



o 
I 

o 
o 



o 
o 

CO 

o 
o 



PASE 



10:32:31 12/10/81 



OOOilOAI 


4E20 


4255 


5359 


2041 










000'*12I 


4654 


4552 


2057 


5249 










OOOUIAI 


5445 


2045 


4F46 












0004201 


ODOA 








309 






DCX 


000«22I 


4E4F 


2049 


4E54 


4552 


310 


SMP3. 


. £0 5 


DC 


00042AI 


5255 


5054 


2047 


454E 










0004321 


4552 


4154 


4544 


204F 










000 43AT 


4E20 


434F 


4D4D 


414E 










O0Ottl»2I 


4420 


5245 


5749 


4E44 










00044AI 


ODOA 
















000«4CI 


4E4F 


2049 


4E54 


4552 


311 


SHP3. 


,E06 


DC 


oootsm 


5255 


5054 


2047 


454E 










OOOUSCI 


4552 


4154 


4544 


204F 










0004641 


4E20 


4255 


5359 


2041 










000 45CI 


46 54 


4552 


2043 


4F4D 










0004741 


4D41 


4E44 


2052 


4541 










00047CI 


4420 
















00047EI 


ODOA 








312 






DCX 


0004801 


4E4F 


2049 


4E54 


4552 


313 


SSP3. 


,E07 


DC 


0004881 


5255 


5054 


2047 


454E 










0004901 


4552 


4154 


4544 


204F 










0004981 


4E20 


4E4D 


544E 


2041 










0004A0I 


4654 


4552 


2052 


4541 










0004A3I 


4420 
















0004AAI 


ODOA 
















0004ACI 


4E4F 


2049 


4E54 


4552 


314 


SBP3. 


,E09 


DC 


0004B4I 


5255 


5054 


204 7 


454E 










0004BCI 


4552 


4154 


4544 


20 4F 










0004C4I 


4E20 


4253 


5920 


4146 










0004CCI 


5445 


5220 


5245 


4144 










0004D4I 


2045 


4F4fi 














0004D8I 


ODOA 
















0004DAI 


4E4F 


2022 


544D 


5322 


315 


S!!P3, 


EOA 


DC 


0004E2I 


2041 


4654 


4552 


2052 










0004EAI 


4541 


4420 


454E 


4420 










000 4F2I 


4F46 


2046 


494C 


4520 










0004FAI 


ODOA 
















0004FCI 


5449 


4D45 


4420 


4F55 


316 


SBP3. 


,EOB 


DC 


000 50 41 


5420 


5741 


4954 


4E47 










000 50CI 


2046 


4F52 


204E 


4F4E 










0005141 


2042 


5553 


5920 












00051AI 


ODOA 
















00051CI 










317 


BEADBUF 


DS 


000 91 CI 










318 






EHD 



ODOA 

C'ND INTERRUPT GENERATED 3N COMMAND SEWIND' , X* ODOA • 



C'NO INTERRUPT GENERATED ON BUSY AFTER COMMAND HEAD" 



SMP33090 
SMP33100 



SMP33110 



ODOA 

C'HD INTERRUPT GENERATED OH NHTN AFTER READ' , X 'ODOA* 



SHP33120 
SMP33130 



C'SD INTERRUPT GENERATED OH BSY AFTER READ EOF'.X'ODOA' 



SMP33140 



C'HD -THS" AFTER READ END OF FILE* , X* ODOA" 



C'TIMED OUT »AITHG FOR HON BUSY" ,X* ODOA" 



1024 



SHP33150 



SHP33160 



SHP33170 
SMP33180 



I 



I 



AS3EHBLED BY C»L 03-066B08-00 

STAHT OPTIONS.- T=32,E8LST 

SO CAL ERBORS 
NO CkL HARHIHGS 
2 PASSES 



C32-BIT) 



TABIE SPACE USED 



3If 



PASE 8 10:32:31 12/10/81 



cn 

o 

I 

o 
o 

VD 

o 
o 

CO 

o 
o 



ABSTOP 


0000 


OOOO 




























ADC 


OOOO 


000* 




























BASE 


OOOO 


00081 


31* 


























BYTES 


0000 


ooom 


29* 


58 


159 






















CCLEAB 


OOOO 


02961 


57 


224* 
























CDEHS 


OOOO 


02A8I 


7U 


233* 
























CDISARH 


OOOO 


02C6I 


511 


91 


194 


248* 




















CDISBLE 


OOOO 


02C0I 


174 


245* 
























CENBLE 


OOOO 


02BAI 


72 


98 


145 


184 


196 


242* 
















CLEAK 


OOOO 


00101 


3tt* 


35 


22 4 






















CHEAD 


OOOO 


02AEI 


165 


208 


2^6* 






















CBEH 


OOOO 


02EIH 


1«7 


239* 


28 8 






















CHBEOF 


OOOO 


02CCI 


132 


251* 
























CWRITE 


OOOO 


029CI 


75 


227* 
























CWBODSY 


OOOO 


02A2I 


62 


230* 
























DATAPAT 


OOOO 


00021 


28* 


51 


157 






















DENSITY 


OOOO 


00121 


36* 


37 


233 






















DISABLE 


OOOO 


00191 


ai* 


245 
























DISABH 


OOOO 


001AI 


«2* 


43 


248 






















DRIVADB 


OOOO 


OOOOI 


27* 


47 
























ENABLE 


OOOO 


00181 


to* 


41 


242 






















EKROR 


OOOO 


03621 


79 


104 


117 


135 


150 


168 


188 


211 


221 


261 


265 


279 


298' 


ERROR 1 


OOOO 


03621 


268 


299* 
























IHPTOP 


OOOO 


091CI 


318 


























LADC 


OOOO 


0002 




























PS»3 


OOOO 


OOOCI 


32* 


52 


68 


86 


108 


122 


141 


155 


172 


192 


215 






POEETOP 


OOOO 


OOOOP 


318 


























RO 


OOOO 


OOOO 


13* 
29« 


76 


101 


114 


131 


146 


164 


185 


207 


254 


258 


274 


277 


H1 


OOOO 


0001 


14* 
245 


47 
248 


48 
25 X 


92 
255 


100 
271 


179 
275 


224 


227 


230 


233 


236 


239 


242 


RIO 


OOOO 


OOOA 


22* 


90 


93 






















R12 


OOOO 


OOOC 


23* 


48 


49 


50 


71 


39 


113 


130 


144 


162 


176 


206 




813 


OOOO 


GOOD 


24* 


























R1<* 


OOOO 


OOOE 


25* 


53 


54 


57 


62 


69 


72 


74 


75 


77 


87 


91 


95 








97 


98 


102 


109 


115 


123 


132 


133 


142 


145 


147 


148 


156 








165 


166 


173 


174 


178 


183 


184 


186 


193 


194 


196 


208 


209 








216 


217 


225 


228 


231 


234 


237 


240 


243 


246 


249 


252 


257 








263 


266 


272 


276 


281 


284 


287 


288 


289 


291 


296 






B15 


OOOO 


OOOF 


26* 


55 


124 


136 


195 


269 


28 3 


292 












82 


OOOO 


0002 


15* 


























R3 


OOOO 


0003 


16* 


52 


53 


68 


69 


70 


71 


73 


86 


87 


88 


89 


108 








109 


112 


113 


122 


123 


125 


129 


130 


141 


142 


143 


144 


155 








156 


161 


162 


172 


173 


175 


176 


192 


193 


197 


205 


206 


215 








216 


218 


23 3 


255 


256 


264 


267 


271 


275 


282 


285 







o 
I 

o 
o 

o 
o 

=d 
o 
o 



>« 
I 

-J 



84 


0000 


0004 


17* 


51 


92 


100 157 


E"; 


QOOO 


0005 


18* 
210 


67 
220 


78 
260 


99 103 


E6 


0000 


0006 


19* 


55 


127 


158 199 


RS 


0000 


0008 


20* 


58 


59 


60 67 


R9 


0000 


0009 


21* 


177 


179 


180 


BEAD 


0000 


00161 


38* 


39 


236 




BERDBOF 


0000 


051CI 


177 


317* 






BECOHDS 


0000 


00061 


30* 


56 


158 




EEH.2 


0000 


034AI 


286 


288* 






HEW. 3 


0000 


034EI 


289* 


290 






REWIND 


0000 


00171 


39* 


239 






BEW8T 


0000 


032EI 


55 


281* 






SENSS1 


0000 


031EI 


275* 


278 






SENSTA 


0000 


03141 


217 


263 


271* 


281 284 


SEHSTRI 


0000 


03181 


183 


266 


274* 


287 291 


SEHSTI13 


0000 


02D2I 


95 


97 


178 


254* 


SEHSTA3A 


0000 


02D8I 


255* 


259 






SHP3.000 


0000 


00421 


57* 


128 






SHP3.001 


0000 


005EI 


61 


67* 






SMP3.002 


0000 


009AI 


70 


86* 






S8P3.003 


0000 


00B2I 


92* 


96 






SBP3.00U 


0000 


OOEAI 


88 


103* 






SHP3.005 


0000 


OODOI 


100* 


111 






SMP3.009 


0000 


01181 


112 


122* 






SKP3.00B 


0000 


01621 


126 


141* 






SBP3.00C 


0000 


015CI 


129 


136* 






SBP3.00D 


0000 


01961 


143 


155* 






SBP3.00E 


0000 


01A4I 


159* 


200 






SHP3.00F 


0000 


01D4I 


151 


172* 






SHP3.00G 


0000 


01F0I 


178* 


182 






S8P3.00H 


0000 


02241 


175 


192* 






SMP3.00I 


0000 


02741 


205 


215* 






SBP3.0A3 


0000 


00C2I 


94 


97* 






SKP3.EO0 


0000 


03701 


78 


303* 






SBP3.E01 


0000 


039AI 


103 


304* 






S8P3.E03 


0000 


03C6I 


116 


306* 






SBP3.E04 


0000 


03F2I 


134 


308* 






SHP3.E05 


0000 


04221 


149 


310* 






SKP3.E06 


0000 


044CI 


167 


311* 






SBP3.E07 


0000 


04801 


187 


313* 






SHP3.E09 


0000 


04ACI 


210 


314* 






SIIP3.E0A 


0000 


04DAI 


220 


315* 






SHP3.E0B 


0000 


04FCI 


260 


316* 






STATCHK 


0000 


02F2I 


124 


136 


195 


263* 


STATUS 


0000 


OOOEI 


33* 


256 






TIMOUT 


0000 


035AI 


77 


102 


115 


133 148 


TSTEND 


0000 


03621 


198 


219 


300* 


302 


HAITI 


0000 


03681 


300 


301* 






SREOF 


0000 


00131 


43* 


251 






WRITE 


0000 


00111 


35* 


227 






WETODDBY 


0000 


00151 


37* 


230 







PAGE 



110 



159 
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116 134 149 163 



167 



181 



187 



160 163 



289 



166 



186 209 294* 295 



SAMPLE PROGRAM U ; 
THE SELCH. 



WRITES AND READS TO AND FROM THE TAPE THROUGH 



f START ) 



LOAD 
DRIVE ADDRESS 
SELCH ADDRESS 



DISARM 
INTERFACE 
INTERRUPTS 



SETUP 

INTERRUPT 

TABLE FOR TAPE 

AND SELCH 



REIA/INDTHE 
MAG TAPE 
BAL REWMT 



G> 



STOP AND 
INITIALIZE 
THE SELCH 



ENABLE 
PROCESSOR 
INTERRUPTS 



LOAD 
DATA PATTERN 



LOAD 
RECORD VALUE 



CLEAR THE 
INTERFACE 



SET UP 
INTERRUPT 
ADDRESS 



ENABLE 
INTERFACE 
INTERRUPTS 



SET UP FOR 
SELCH WRITE 
BAL SELSETW 



SETUP 

SELCH WRITE 

ADDRESS 



^ 



OUTPUT 
DENSITY 



LOAD 
BYTE VALUE 




IS 
' BYTES ODD ' 



ISSUE VVRT 
ODD BYTE 
COMMAND 



ir 



PUT INTERFACE 

INTO WRITE 

MODE 



SETA 
TIME LIMIT 




ENABLE 
PROCESSOR 
INTERRUPTS 



SETUP 
INTERRUPT 
ADDRESS 



GIVE SELCH 
THE GO 




^ 



CHECK 

SELCH STATUS 

BALSELCHK 



CHECK SELCH 

ENDING ADDRESS 

BAL SELEND 



CHECK INTERFACE 
STATUS FOR 
DU OR ERROR 
BALSTATCHK 




DECREMENT 
RECORDS VALUE 




SETUP 
INTERRUPT 
ADDRESS 



ENABLE 
INTERFACE 
INTERRUPTS 



WRITE EOF MARK 



CHECK INTERFACE 
STATUS 



G> 




STOP AND 

INITIALIZE 

SELCH 



SETUP 
INTERRUPT 
ADDRESS 



ENABLE 
INTERFACE 
INTERRUPTS 



GIVES REWIND 
COMMAND 
TO TAPE 




ENABLE 
PROCESSOR 
INTERRUPTS 



LOAD 
RECORD VALUE 



SET UP SELCH 
READ ADDRESS 
BALSELSETR? 



WRITE OUT 
EXPECTED 
ADDRESSES 



SETUP 
INTERRUPT 
ADDRESS 



ENABLE 
INTERRUPTS 



PUT INTERFACE 
IN READ MODE 



D 



R-28 



50-009 FOO ROO 




CHECK SELCH 

ENDING STATUS 

BALSELCHK 



CHECK 

INTERFACE 

STATUS 

BAL STATCHK 




CHECK SELCH 

ENDING ADDRESS 

BALSELEND 



REWIND TAPE 
BAL REWMT 



rENDTEST^ 



DECREMENT 
RECORD COUNT 




SET UP INTERRUPT 
ADDRESS 



PUT INTERFACE 
INTO READ MODE 




ENABLE 
PROCESSOR 
INTERRUPTS 



DISARM 
INTERRUPTS 



CHECK STATUS 




-© 



>/error) 



i/error J 



Tend test J 



50-009 POO ROO 



A-29 



1 

o 



o 
I 

o 
o 

(£) 

T) 
O 
O 

!X) 
O 

o 



rSELSETVv) 



LOAD BYTES 
VALUE 1 



LOAD BEGINNING 

ADDRESS OF 

WRITE BUFFER 

AND SAVE IT 



SET UP INDEX 
REGISTER TOO 



I 



STORE DATA 
PATTERN INTO 
WRITE BUFFER 



INCREMENT 

INDEX REGISTER 

BY 2 




CALCULATE 

ENDING ADDR. 

OF WRITE BUFFER 

& SAVE IT 



( RETURN J 



(sENSTAs) 



LOAD A 
TIME LIMIT 



SENSE STATUS 
OF INTERFACE 




DECREMENT 
TIME LIMIT 




( ERROR ) 



-C RETURN J 



( ERROR ) 



OUTPUT 

APPROPRIATE 

ERROR MESSAGE 



OUTPUT SUSPECTED 
FAILING UNIT 



MND TEST J 



( REWMT J 




( RETURN J 



r SELCHK J 



GET SELCH 
STATUS 




STATUS =o\2 (return} 

I N 

(error) 



( SELEND J 



GET SELCH 
ENDING 
ADDRESS 




( ERROR ) 



(statchk) 



SENSE INTERFACE 
STATUS 




SENSE STATUS 
& WAIT FOR 
NO MOTION 




3 



( RETURN J 



(sELSETRj 



LOAD BEGINNING 

ADDRESS OF 

END BUFFER 

& SAVE IT 



LOAD BYTES 
VALUE -1 



CALCULATE 

READ BUFFER 

ENDING ADDRESS 

AND SAVE IT 



(return J 



o 
I 

o 
o 

vD 

"J 

o 
o 

JO 

o 
o 



PA3E 



09:43:10 12/37/81 



P80G= *NOSE* 



3=< 
t 





0000 


0000 




0000 


0001 




0000 


0002 




0000 


0003 




0000 


0004 




0000 


0005 




0000 


0006 




0000 


0007 




0000 


0008 




0000 


0009 




0000 


OOOA 




0000 


OOOB 




0000 


OOOC 




0000 


OOOD 




0000 


OOOE 




0000 


OOOF 


OOOOOOI 


0085 




0000021 


1234 




00000 11 


OOFO 




0000061 


OOFF 




0000081 


007F 




OOOOOAI 


70F0 




OOOOOCI 


OOOA 


5000 


0000101 


0960 






0000 


00111 


0000121 


0818 




00001 w 


28 OB 






0000 


00151 


0000161 


40E0 






0000 


00171 


0000181 


C848 






0000 


00191 


OOOOUI 


8SC0 






0000 


001BI 


00001CI 


5474 






0000 


001DI 


00001 EI 


4C0C 






0000 


001FI 


O00O20I 


4800 




0000241 


0000 


0000 


0000281 


0000 


0000 



. 03 


-066R08-00 (32-Bir) 










1 




SCRAT 










SMP40010 


2 




CROSS 










SMP40020 


3 




WIDTH 


120 








SMP40030 


4 




TASGT 


32 








SMP40040 


5 


* 












SMP40050 


6 


* SAMPLE 


PROGRAM 4 








SMP40060 


7 


* 












SMP40070 


8 


* THIS IS A SAMPLE PBDGRAM TO 


ILLUSTRATE 






SBP40080 


9 


* W8ITE 


AND READS TO AND FROM 


A TAPE OSISG 






SMP40090 


10 


* THE SELCH UNDEB IKIEEBUPT3. 








SBPaOlOO 


11 


* 












SMP40110 


12 


* REGIS' 


TER AS3IGKBESTS 








SMP40120 


13 


80 


EQO 











SMP40130 


14 


R1 


EQU 


1 








SMP40140 


15 


R2 


EQU 


2 








SHP40150 


16 


R3 


EQU 


3 








SMP40160 


17 


R4 


EQO 


4 








SMP40170 


18 


B5 


EQU 


5 








SSP40180 


19 


Re 


EOO 


6 








SMP40190 


20 


R7 


EQU 


7 








SMP40200 


21 


H8 


EQU 


8 








SMP40210 


22 


R9 


EQU 


9 








SMP40220 


23 


RIO 


EQU 


10 








SHP40230 


24 


B11 


BQU 


11 








SMP40240 


25 


R12 


EQU 


12 








SHP40250 


26 


R13 


EQO 


13 








3SP40260 


27 


R14 


EQU 


14 








SMP40270 


28 


R15 


EQU 


15 








SMP40280 


29 


DEIVADR 


DCX 


85 


DRIVE ADDRESS 






SMP40290 


30 


DATAPAT 


DCX 


1234 


DATA PATTERN 






SHP40300 


31 


SELADR 


DCX 


FO 


SELCH ADDRESS 






SHP40310 


32 


BYTES 


DCX 


FF 


BYTES PER RECORD 






SMP40320 


33 


RECOBDS 


DCX 


7F 


BECORD VALUE 






SMP40330 


34 


PSH3 


DCX 


70 FD 


ENABLED PROCESSOR 


INTERRUPTS 


SBP40340 


35 


BASE 


DCY 


A5000 


A NUMBER 






SMP40350 


36 


CLEAR 


DCX 


096D 


CLE-A8 INTERFACE 






SMP40360 


37 


HRITE 


EQU 


CLEAR+1 


INTERFACE INTO WRITE 


MODE 


SHP40370 


38 


DENSITY 


DCX 


0818,2808 


1600, 6250, 800 






SMP40380 


39 


HRTODDBY 


EQU 


DEN3ITY+3 


WRITE AN ODD AMOUNT : 


BYTES 


SMP40390 


40 


READ 


DCX 


40E0 


INTERFACE INTO READ 


MODE 


SMP40400 


41 


REWIND 


EQU 


READ+1 


REWIND MAG TAPE COMMAND 


SMP40410 


42 


DISARM 


DCX 


C848 


DISARM INTERFACE 


INTERRUPTS 


SMP40420 


43 


ENABLE 


EQO 


DISARS+1 


ENABLE INTEBFAC? 


INTERRUPTS 


SMP40430 


44 


DISABLE 


DCX 


88C0 


DISABLE INTERFACE 


INTERRUPTS 


SMP40440 


45 


HBEOF 


EQU 


DISABLE+1 


W8ITE AN END OF FILE 


MARK 


SHP40450 


46 


GO 


DCX 


5474 


SELCH GO(WRIIE) 






SMP40tt60 


47 


GOREAD 


EQU 


GO+1 


SELCH GO(READ) 






SMP40a70 


48 


STOP 


DCX 


4C0C 


SELCH STOP 






SMP40480 


49 


STOPS 


EQO 


STOP+1 


INIT SELCH 






SMP40490 


50 


EXTD 


DCX 


4800 


GET EXTENDED ADDRESS 


SELCH 


SKP40500 


51 


STOPADDR 


DCY 





STORAGE LOCATIONS 






SMP40510 


52 


HBUF 


DCY 











SMP40520 



> 
I 

Ui 



PUGE 2 09!l»8i10 12/07/81 



O 

O 
O 
UD 

►tj 
o 
o 

w 
o 
o 



00002CI 


0000 


0000 




53 


RDBUF 


Dcy 







SHP40530 


0000301 


0000 


0000 




54 


ENDBOF 


ncY 







SHP40S40 


00003l»I 


48 10 


FFC8 


=0000001 


55 




LH 


R1,DEIVADR 


GET DRIVE ADDRESS 


SnP40550 


0000381 


08C1 






56 




LB 


R12,R1 


LOAD DRIVE ADDB 


SHP40 560 


00003SI 


S1C1 






57 




SLHLS 


S12,1 




SSPS0570 


00003CI 


CACO 


OODO 




58 




AHI 


812,X'D0' 


SET UP IHTERRUPT LOCATIOH 


SHP40 580 


0000401 


4820 


FFCO 


=0000041 


59 




LH 


B2,SELADR 


GET SELCH ADDRESS 


SHP40590 


O000«ttl 


08D2 






60 




LB 


R13,R2 


LOAD SELCH ADB INTO B13 


SHP40600 


oooowei 


91D1 






61 




SLHLS 


E13,1 


DOUBLE ADDRESS 


SMP40610 


0000<t8I 


CADO 


OODO 




62 




AHI 


R13,X'D0' 


SET OP FOR INT ADDRESSES 


SI(P40620 


00004CI 


41 EO 


4000 


02CCI 


63 




BAL 


B14,CDISABM 


DISARH INTEBEOPTS 


SHP40630 


O0OO52I 


41 EO 


4000 


02D2I 


64 




BAL 


B14,CST0P 


STOP SELCH 


SHP40640 


0000581 


41E0 


4000 


2D2I 


65 




BAL 


R14,CSrOP 


INIT SELCH 


SHP406SO 


00005EI 


41 FO 


4000 


03F0I 


66 




BAL 


R15,HEH«T 


BEHIND TAPE 


SKP40660 


0000641 


7330 


FFA2 


=00000AI 


67 




LHL 


R3,PSW3 


PSW 70F0 


SBP40670 


0000681 


95E3 






68 




BPSR 


H14,R3 


ENABLE PROCESSOR INTERRUPTS 


SBP40680 


00006M 


48 40 


FF94 


=0000021 


69 




LH 


R4,DATAPAT 


LOAD DATA PATTERN 


SHP40690 


00006EI 


4860 


FF96 


=0000081 


70 




LH 


R6, RECORDS 


GET RECORDS VALUE 


SHP40700 


0000721 


41 EO 


4000 


02961 


71 


SHPL4 


BAL 


R14,CCLEAB 


CLEAR INTERFACE 


SBP40710 


0000781 


E630 


4000 


OOCAI 


72 




LA 


R3,3HP4.001 


INTERRUPT ADDRESS 


SfiP40720 


00007EI 


40 3C 


0000 




73 




STH 


R3,0(H12) 


INTO INTERRUPT TABLE 


SHP40730 


0000821 


41E0 


4000 


02C0I 


74 




BAL 


B14,CENBLE 


ENABLE INTERE0PI3 


SHP40740 


0000881 


41F0 


4000 


03181 


75 




BAL 


B15,SELSETW 




SHP40750 


00008EI 


41 EO 


4000 


02EEI 


76 




BAL 


B14,HRBI}F 


SET UP WRITE SELCH ADDRESSES 


SKP40760 


0000941 


41E0 


4000 


02A8I 


77 




BAL 


R14,CDENS 


OUTPUT DENSITY COBHAND 


SHP40770 


00009*1 


7380 


FF68 


=0000061 


78 




LHL 


R8,BirES 


GET BYTES VALUE 


SHP40780 


00009EI 


C380 


0001 




79 




THI 


R8,X'0001' 


IS IT ODD? 


SHP40790 


00O0A2I 


4330 


4000 


OOAEI 


80 




BZ 


SHP4.000 


SKIP OVEE IF NOT 


SHP40e00 


0000*81 


41 EO 


4000 


02A2I 


81 




BAL 


R14,CWR0DBY 


HBITE ODD BYTE COHHAND 


SBP40810 


OOOOAEI 


41E0 


4000 


029CI 


82 


SBP4.000 


BAL 


R14,CWHITE 


ISSUE WRITE COHHAND 


SHP40820 


0000B4I 


C800 


7FFF 




83 




LHI 


R0,X'7FFF' 


TIME VALUE 


SflP40830 


0000B8I 


41E0 


4000 


03C8I 


84 




BAL 


R14,TIH0UT 




SBP40840 


OOOOBEI 


E650 


4000 


04301 


85 




LA 


R5,3HP4.EO0 


NO INTERRUPT GENERATED ON BSI AFTER H 


1 SBP40850 


O0OOC4I 


4300 


4000 


041CI 


86 
87 


* 


B 


ERROR 


EBBOR ROUTINE 


SMP40860 
SaP40870 










88 


* WAIT FOB AH 


IHTERROPT FROH 


THE SELCH HERE 


SHPQOeSO 










89 


* 








SBP40890 


OOOOCAI 


7330 


FF3C 


=00000AI 


90 


SHP4.001 


LHL 


R3,PSW3 


GET PSW 70FO 


SHP40900 


OOOOCEI 


95E3 






91 




EPSR 


R14,3 


ENABLE PROCESSOR INTERRUPTS 


SHP40910 


OOOODOI 


41 EO 


4000 


02CCI 


92 




BAL 


B14,CDISARH 


DISARH ANY INTERRUPTS 


SHP40920 


00O0D6I 


E6 30 


4000 


OOFCI 


93 




LA 


R3,S!IP4.005 


INTERRUPT ADDRESS 


SHP40930 


OOOODCI 


403D 


0000 




94 




STH 


R3,0(R13) 


INTO TABLE FOB SELCH INTERRUPT 


SBP40940 


OOOOEOI 


41E0 


4000 


02DEI 


95 




BAL 


B14,CG0 


GIVE SELCH THE GO 


SHP40950 


ooooEei 


C800 


7FFF 




96 




LHI 


R0,X'7FFF' 


TIME VALUE 


SHP40960 


OOOOEAI 


41 EO 


4000 


03C8I 


97 




BAL 


R14,TIK00T 


WAIT FOR INTERRUPT 


SHP40970 


OOOOFOI 


E650 


4000 


045CI 


98 




LA 


R5,3!IP4.E01 


NO INTERRUPT GEN 


SBP40980 


0000F6I 


4300 


4000 


041CI 


99 
100 


* 


B 


ERROR 


ERROR ROUTINE 


SHP40990 
SBP41000 










101 


* CHECK 


SELCH 


STATUS, ADDRESS 


AMD INTERFACE STATUS 


SHP41010 










102 


* 








SMP41020 


OOOOFCI 


7330 


FFOA 


=00000AI 


103 


SHP4.005 


LHL 


R3,PSir3 


PSW 70F0 


SBP41030 


0001001 


95E3 






104 




EPS8 


B14,B3 


ENABLE PROCESSOR INTERRUPTS 


SBP41040 


0001021 


41F0 


4000 


03621 


105 




BAL 


R15,SELCHK 


CHECK SELCH ENDING STATUS 


SHP41050 


0001081 


41 FO 


4000 


037AI 


106 




BAL 


B15,SELEND 


CHECK SELCH ENDING ADDRESS 


SBP41060 


00010EI 


41F0 


4000 


03A6I 


107 




BAL 


R15,STATCHK 


CHECK INTERFACE STATUS 


SHP41070 



(J1 
o 
I 

o 
o 

o 

o 

CO 

o 
o 



P&SE 



3 09:48:10 12/07/81 



I 



OOOIItl 


C330 


0020 




108 








THI 


83,iC'20' 


IS TAPE AT EOT? 


SMP41080 


0001181 


4230 


4000 


016CI 


109 








BNZ 


SMP4.008 


BEHIND AND READ 


SHP41090 


000 11 EI 


2761 






110 


SHP4. 


.005 


SIS 


R6,1 


DECBEMENT RECORD COUNT 


SMP41100 


0001201 


4230 


FF4E 


=0000721 


111 
112 


* 






BKZ 


SHPL4 


CONTINUE WRITE OUTPUT 


SHP41110 
SHP41120 










113 


* 


HAIT FOB AH 


IHTE8R0PT ON BOSY 


RESET AFTER WRITE EOF 


SMP41130 










114 


* 












SSP41140 


00012IH 


E6 30 


4000 


01501 


115 








LA 


83,3!IP4.007 


INTERBUPT ADDRESS 


SMP41150 


00012AI 


40 3C 


0000 




116 








STH 


83,0(812) 


INTO TABLE 


SMP4116Q 


00012EI 


C800 


007F 




117 








LHI 


R0,X'7F' 


TIME VALUE 


SSP41170 


0001321 


41 EC 


4000 


02C0I 


118 








BAL 


B14,CEHBLE 


ENABLE INTERRUPTS 


SHP4118C 


0001381 


41E0 


4000 


02BAI 


119 








BAL 


R14,C»BE0F 


WRITS AN END OF FILE MASK 


SI1P41190 


00013EI 


41E0 


4000 


03C8I 


120 








BAL 


R14,TIMQUT 


WAIT FOB INTERRUPT 


SMP41200 


oooiaiji 


E650 


4000 


047 CI 


121 








LA 


85,3HP4.E02 


HD INIE8PT GEH OK WHITE EOF 


SHP41210 


00014AI 


4300 


4000 


041CI 


122 








B 


ERROR 


ERROR ROUTINE 


SMP41220 


0001501 


7330 


FEB6 


=0OO0OAI 


123 


SMP4. 


.007 


LHL 


B3,PSW3 


PSW 70F0 


SMP41230 


0001541 


95E3 






124 








EPSR 


R14,R3 


ENABLE PROCESSOR INTERRUPTS 


SHP41240 


0001561 


41E0 


4000 


03D0I 


125 








BAL 


R14,SENSTA 


GET STATUS 


SHP412S0 


0001 SCI 


C330 


0020 




126 








THI 


R3,X'20' 


IS TAPE AT EOT? 


SHP41260 


0001601 


4230 


4000 


016CI 


127 








BNZ 


SHP4.008 




SHP41270 


0001661 


41F0 


4000 


03A6I 


128 
129 


* 






BAL 


R15,STATCHK 


CHECK INTERFACE STATUS 


SHP41280 
SMP41290 










130 


* 


WAIT FOR AN 


INTEBROPT OH NMTN 


AFTER REWIND 


SBP41300 










131 


* 












SHP41310 


00016CI 


41 EO 


4000 


02D2I 


132 


SHPa, 


.008 


BAL 


S14,CSI0P 


STOP SELCH 


SHP41320 


0001721 


41 EO 


4000 


02D2I 


133 








BAL 


H14,CST0P 


INIT SELCH 


SHP41330 


0001781 


E630 


4000 


01A0I 


134 








LA 


83,3MP4.009 


INTERRUPT ADDRESS 


SHP41340 


00017EI 


40 3C 


0000 




135 








STH 


83,0(R12) 


INTO IHTERRUPT TABLE 


SMP41350 


0001821 


41 EO 


4000 


02C0I 


136 








BAL 


R14,CENBL£ 


ENABLE INTERBUPTS 


SHP41360 


0001881 


41E0 


4000 


02B4I 


137 








BAL 


814, CREW 


REWIND TAPE 


SHP41370 


00018EI 


41E0 


4000 


03C8I 


138 








BAL 


814,TIHO0T 


WAIT FOB INTEBROPT 


SMP41380 


0001941 


E650 


4000 


04A2I 


139 








LA 


B5,SHP4.E03 


NO INTERRUPT GEN OH HBTH AFTER EEH 


SHP41390 


00019AI 


4300 


4000 


041CI 


140 
141 
142 


* 






B 


ERROR 


ERROR ROUTINE 


SMP41400 
SHP41410 
SBP41420 










143 


* 


EXPECT 


AH IHTEBEOPT OH BBSJf RESET AFTER READ 


SHP41430 










144 


* 












SHP41440 


OOOUOI 


7330 


FE66 


=0O00OAI 


145 


SHP4. 


,009 


LHL 


B3,PSH3 


PSW 70F0 


SHP41450 


000 U4I 


95E3 






146 








BPSR 


814,83 


ENABLE PROCESSOR IHTERBUPTS 


SBP41460 


0001A6I 


7360 


FE5E 


=0000081 


147 








LHL 


86, RECORDS 


RECORD VALUE 


SfiP41470 


0001A&I 


41F0 


4000 


034AI 


148 


SMP4. 


,019 


BAL 


R15,SELSETE 


SET UP READ BUFFER 


SfiP41480 


0001BOI 


41E0 


4000 


03001 


149 








BAL 


814,REB0F 


SET OP READ ADDRESSES 


SHP41490 


0001B6I 


E630 


4000 


01E2I 


150 








LA 


R3,SHP4.00A 


IHTERRUPT ADDRESS 


SMP41500 


0001BCI 


40 3C 


0000 




151 








STH 


83,0(812) 


STORE IHIO TABLE 


SBP41510 


0001C0I 


7300 


FE42 


=0000061 


152 








LHL 


BO, BYTES 


LOAD A TIHVAL 


SBP41520 


0001C4I 


41 EO 


4000 


02C0I 


153 








BAL 


814,CEHBLE 


EHBLE INTERRUPTS 


SMP41530 


0001CAI 


41E0 


4000 


02AEI 


154 








BAL 


ai4,CREAD 


POT INTERFACE IN BEAD MODE 


SHP41540 


0001DOI 


41 EO 


4000 


03C8I 


155 








BAL 


814, TI HOOT 


WAIT FOR INTERRUPT 


SMP41550 


0001D6I 


E650 


4000 


04DOI 


156 








LA 


H5,3MP4.E04 


NO INTERRUPT GEH OH C BEAD 


SBP41560 


0001DCI 


4300 


4000 


41 CI 


157 
158 


* 






B 


ER80B 


EBEOR ROUTINE 


SBP41570 
SSP41580 










159 


* 


WAIT FOE AS 


IHTE8R0PT FROS THE SELCH 


SHP41590 










160 


* 












SHP41600 


0001E2I 


7330 


FE24 


=00000AI 


161 


SIIP4. 


,00A 


LHL 


83,PSH3 


PSW 70F0 


SSP41610 


0001E6I 


95E3 






162 








EPSR 


814,83 


EHABLE INTEBROPrS 


SMP41620 



I 



o 
I 

o 
o 

o 
o 

so 
o 
o 



0001 ESI 


E630 


4000 


02141 


163 






LA 


R3,3BP4.00B 


0001EEI 


40 3D 


0000 




164 






STH 


B3,0C813) 


0001F2I 


41E0 


4000 


02CCI 


165 






BAL 


814,CDISAH« 


OOOIFei 


41E0 


4000 


02E4I 


166 






BAL 


R14,CG0READ 


O0O1FEI 


C800 


7FFF 




167 






LKI 


B0,X'7FFF' 


0002021 


41 EO 


4000 


03C8I 


168 






BAL 


R14,TmOBT 


0002081 


E650 


4000 


04FCI 


169 






LA 


R5,3HP4.E05 


00020EI 


4300 


4000 


041CI 


170 
171 


* 




B 


EBBDB 










172 


* 


CHECK 


SELCH 


STATQS, ADDRESS 










173 


* 








00021UI 


7330 


FDF2 


=OOOOOAI 


174 


SKP4.00B 


LHL 


R3,PSH3 


0002181 


95E3 






175 






EPSR 


R14,R3 


00021AI 


41F0 


4000 


03621 


176 






BAL 


R15,SELCHK 


0002201 


41F0 


4000 


037AI 


177 






BAL 


E15,SELEND 


0002261 


41 FO 


4003 


03A6I 


178 






BAL 


SIS.STATCHK 


00022CI 


C430 


0020 




179 






MHI 


R3,X'20* 


0002301 


4330 


4000 


02421 


180 






BZ 


SHP4.01B 


0002361 


41 FO 


4000 


03F0I 


181 






BAL 


RIS.SEWHT 


000 23CI 


4300 


4000 


041CI 


182 
183 


* 




B 


TSTESD 


0002421 


2761 






184 


SHP4.016 


SIS 


R6,1 


0002U4I 


4230 


FF62 


=0001AAI 


185 
186 


* 




BNZ 


S»P4.019 










187 


* 


CHECK 


FOR THS STATUS 










188 


* 








0002481 


E630 


4000 


02741 


189 






LA 


a3,3«P4.00C 


00024EI 


40 3C 


0000 




190 






STH 


B3,0(R12) 


0002521 


41 EO 


4000 


02C0I 


191 






BAL 


B14,CEHBLE 


0002581 


C800 


00 FF 




192 






LHI 


R0,X"FF' 


00025CI 


41 EO 


4000 


2AEI 


193 






BAL 


B14,CREAD 


0002621 


41 EO 


4000 


03C8I 


194 






BAL 


B14,TIMO0T 


0002681 


E650 


4000 


52 CI 


195 






LA 


R5,S)(P4.E0e 


00026EI 


4300 


4000 


041CI 


196 
197 


* 




B 


ERROR 


0002741 


7330 


FD92 


=O0000AI 


198 


SI1P4.00C 


LHL 


R3,PSW3 


0002781 


95E3 






199 






EPSR 


B14,R3 


00027AI 


41 EO 


4000 


02CCI 


200 






BAL 


ai4,CDISABM 


0002601 


41 EO 


4000 


03D0I 


201 






BAL 


R14,SE1ISTA 


0002861 


C330 


0002 




202 






THI 


B3,X'02' 


00028AI 


4230 


4000 


041CI 


203 






BNZ 


TSTEHD 


0002901 


E650 


4000 


055CI 


204 






LA 


B5,3NP4.E07 


0002961 


DE10 


FD76 


=0000101 


206 


CCLEAB 


QC 


B1, CLEAR 


00029AI 


030E 






207 






BR 


R14 


00029CI 


DE10 


FD71 


=0000111 


209 


CWKITE 


OC 


R1,HRITE 


0002AOI 


030E 






210 






BE 


R14 


0002A2I 


DE10 


FD6F 


=0000151 


212 


CHRODBY 


ac 


R1,»BT0DDBr 


0002A6I 


030E 






213 






BB 


R14 


0002A8I 


DE13 


FD66 


=0000121 


215 


CDEHS 


OC 


R1,DEHSITY(E3) 


0002ACI 


030E 






216 






BR 


R14 



PASE 4 09:48:10 12/07/81 

IKIEBROPT ADDRESS 

INTO TABLE FOR SELCH INIEBBUPT 

DISARH INTERRUPTS 

PTMC 'Ml a* tflTfTF 
^ 1. Lm ij V A, inuuxj 

HAIT FOR IHTERKUPT 

NO IHTEBBOPT GEM OH BST AFTEB READ 

ERROR ROUTINE 



PSH 70FO 

ENABLE P80CESS0R INTERROPTS 

CHECK SELCH ENDING STATUS 

CHECK SELCH ENDING ADDRESS 

CHECK INTERFACE STATUS 

IS TAPE AT EOT? 

BEHIND TAPE 

END SAMPLE TEST 4 

DECBEHEHT REC0BD3 
CONTINUE RECORDS 



INTERRUPT ADDRESS 

INTO TABLE 

ENABLE IHTEBBUPTS 

TIME VALUE 

ISSUE HEAD COMMAND 

HAIT FOR INTERRUPT 

NO INTERRUPT GEN ON BEAD EOF 

ERROR ROUTINE 

PSH 70F0 

ENABLE PROCESSOR INTERRUPTS 

GET STATUS 
EOF STATUS? 

NO TAPE MARK STATUS 

CLEAR INTERFACE 
RETURN 

PUT INTERFACE INTO HRITE MODE 
RETURN 

PUT OUT ODD AMOUNT BYTES 
RETURN 

OUTPUT PROPER DENSITY 
RETURN 



SHP41630 
SMP41640 
SMP41650 
SHP41660 
SMP41670 
SnP41680 
SMP41690 
SSP41700 
SMP41710 
SMP41720 
SMP41730 
SMP41740 
SHP41750 
SMP41760 
SMP41770 
SSP41780 
SBP41790 
SMP41800 
SMP4ieiO 
SHP4ie20 
SBP41830 
SMP41840 
SHP41850 
SMP41860 
SMP41870 
SMP41880 
SMP41890 
SMP41900 
SMP41910 
SHP41920 
SHP41930 
SMP41940 
SHP41950 
SHP41960 
SMP41970 
SMP41980 
SHP41990 
SHP42000 
SHP42010 
SHP42020 
SHP42030 
SBP42040 

SHP42060 
SBP42070 

SHP42090 
SMP42100 

SMP42120 
SBP42130 

SHP42150 
SMP42160 



(Jl 
o 
I 

o 
o 



o 
o 

so 
o 
o 



PiGE 



5 09:48:10 12/D7/81 






0002AEI 
0002B2I 


DE10 
030E 


FD64 


=0000161 


218 
219 


CBEAD 


OC 

BE 


HI, READ 
R14 


POT INTERFACE IN READ MODE 
RET08S 


SHP42180 
SI1P42190 


0002B4I 
0002B8I 


DE10 
030E 


FD5F 


=0000171 


221 
222 


CREW 


ac 

BR 


R1, REWIND 
R14 


BEWIND TAPE 
8ET08N 


SMP42210 
SMP42220 


0002BAI 
0002BEI 


DE10 
030E 


FD5D 


=00001BI 


224 
225 


CWREOF 


OC 

BR 


RI.WHEOF 
R14 


WRITE EOF SAHK 
EETUBN 


SHP42240 
SHP42250 


0002COI 
0002C4I 


DE10 
030E 


F055 


=0000191 


227 
228 


CEMBLE 


OC 
BR 


R1,ESABLE 
B14 


ENABLE INTEBFACE INTERROPTS 
RETURN 


SHP42270 
SIIF42280 


0002C6I 
0002C&I 


DE10 

030E 


FD50 


=00001AI 


230 
231 


CDISBLE 


OC 

BR 


El, DISABLE 

ai4 


DISABLE PROCESSOR INTERROPTS 
RETDEN 


SHP42300 
SKP42310 


0002CCI 
0002D0I 


DE10 
030E 


FD48 


=0000181 


233 
234 


CDISAEM 


OC 

BR 


R1,DI3AR» 
R14 


DISABH INTERFACE INTERROPTS 
RETOEN 


SHP42330 
SHP42340 


0002D2I 
0002D6I 


DE20 
030E 


FD48 


=00001EI 


236 
237 


CSTOP 


OC 
BE 


R2,ST0P 
814 


STOP SELCH 


SMP42360 
SHP42370 


0002D8I 
0002DCI 


DE20 
030E 


FD43 


=00001FI 


239 
240 


CSTOPS 


OC 

BE 


fi2, STOPS 
R14 


INIT SELCH 
RETORH 


SHP42390 
SHP42400 


0002DEI 
0002E2I 


DE20 
030E 


F03A 


=00001CI 


242 
243 


CGO 


OC 
BR 


R2,S0 
R14 


GIVE SELCH THE GO 


SHP42420 
SHP42430 


0002E4I 
0002E8I 


DE20 
030E 


FD35 


=00001DI 


245 
246 


CQQ8EAD 


OC 
BR 


B2,30BEAD 
R14 


GIVE THE SELCH THE GO TO READ 
RETOBN 


SHP42450 
SHP42460 


0002EAI 
0002ECI 
0002EEI 
0002F2I 
0002F6I 
0002FAI 
0002rEI 


9D23 
030E 
DA 20 
D820 
DA20 
D820 
030E 


FD37 
FD34 
FD37 
FD34 


=0000291 
=00002AI 
=0000311 
=0000321 


248 
249 
250 
251 
252 
253 
254 


SENSIA2 
UBBUF 


SSB 

BB 

HD 

HH 

HD 

WH 

BR 


82,83 

R14 

B2,WB0F+1 

B2,WBUF+2 

B2,ENDBDF+1 

R2,EHDB0F+2 

814 


SENSE SELCH STATOS 

BETORN 

SET OP EXPECTED SELCH ADDBESS 

BETOBN 


SHP42480 
SMP42490 
SHP42500 
SHP42510 
SHP42520 
SBP42530 
SHP42540 


0003001 
000 3041 
0003081 
00030CI 
0003101 


DA 20 
D820 
M20 
D8 20 
030E 


FD29 
FD26 
FD25 
FD22 


=0000201 
=00002EI 
=0000311 
=0000321 


256 
257 
258 
259 
260 


REBOF 


»D 
HH 
WD 
WH 

BB 


R2,SDB0F+1 

B2,RDB0F+2 

82,EHDB0F-H 

R2,EHDB0F+2 

R14 


SET UP EXPECTED SELCH BEAD ADDfiS 
RETURN 


SMP42560 
SMP42570 
SNP42580 
SBP42590 
S8P42600 


0003121 
0003141 
0003161 


9B23 
992D 
030E 






262 

263 
264 


REEHD 


RDR 
RHR 
BR 


R2,R3 

82,813 

814 


RETURN 


SHP42620 
SIIP42630 
SHP42640 










266 
267 
268 
269 
270 
271 


* THIS EOUTINE SETS OP THE 

* SELCH ADDBESSES FOB THE ! 

* THE DESIfiED DATA PATTEBN 

* BUFFEB AND THE BOFFER IS 

* TAPE VIA THE SELCH. 

* 


SELCH WSTBOF AND 
JRITE 

IS STORED INTO A 
WaiTTEN ONTO THE 


SBP42660 
SaP42670 
SIIP42680 
SHP42690 
SHP42700 
SBP42710 


0003181 


4880 


FCEA 


=0000061 


272 


SELSETH 


LH 


88, BYTES 


GET BITES VALUE 


SMP42720 



I 



PAGE 



000 31 CI 


2781 






00031EI 


E6 30 


4000 


05841 


0003241 


5030 


FDOO 


=0000281 


0003281 


2470 






00032AI 


40 37 


4000 


05S4I 


0003301 


2672 






0003321 


0578 






0003341 


4320 


FFF2 


=00032AI 


0003381 


41E0 


FF96 


=0002021 


00033CI 


E6 30 


4000 


05841 


0003421 


0A8 3 






0003441 


50 80 


FCE8 


=0000301 


0003481 


030F 







00034AI E650 4000 09841 

0003501 5050 FCD8 =0000201 

0003541 4860 FCAE =0000061 

0003581 2761 

00035AI 0A56 

00035CI 5050 FCDO =0000301 

0003601 030F 



27 3 
274 
275 
276 

£. f I 

278 
279 
280 
281 
282 
283 
284 
285 

237 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 



SIS B8,1 

LA R3,W8TB!IF 

STA B3,»BUF 

LIS R7,0 

3TK H3/ KRTBuF ( 57 ) 



AIS 


B7,2 


CLAR 


E7,R8 


BHP 


SEL.1 


BAL 


E14,CSrOP 


LA 


B3,HRrBUF 


AB 


B8,R3 


ST 


B8,EKDBUF 


BH 


B15 
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ADJUST FOR HALFHOED WEITES 



CLEAR INDEX BEGISTEE 

FILL WRTBuF 

INCBEHENT BUFFEB ADDRESS 



CALCULATE EHDING ADDR 

SAVE IT 

RETUBN 



THIS ROUTINE SETS OP THE READBUF ADDEESSES 
ACCOEDING TO THE ABOONT OF BYTES WRITTEH. 



SELSETE 



LA 

STA 

LH 

SIS 

AR 

ST 

BR 



R5,READB0F 

R5,RDBtIF 

R6,BrTES 

R6,1 

RS,R6 

R5,EHDBirF 

R15 



GET START ADDR 

GET BITES VALUE 

ADJUST 

CALCULATE END ADDRESS 

SAVE IT 

RETURN 



SHP42730 
SKP42740 
SMP42750 
SBP42760 
5HP42770 
SKP42780 
SHP42790 
SHP42800 
SBP42810 
SHP42820 
SHP42830 
SHPa2840 
SMP42850 

SHP42870 
SHP42880 
SBP42890 
SHP42900 
S)IP42910 
SHP42920 
SHP(I2930 
SBP42940 
SflP42950 
SHP42960 
SHP42970 



0003621 
000 36 61 
00036AI 
000 36EI 
0003721 
0003741 



=0002EAI 
=0002021 

=0002081 



41E0 FF84 

41 EO FF68 

41E0 FF6A 

C530 0000 

033F 

4300 4000 041CI 



299 
300 
301 
302 
303 
304 
305 
306 
307 
308 



THIS BOUTIHE CHECKS THAT THE SELCH STATUS IS 
OK UPON COHPLETIDN OF BEAD OR WBITE. 



SELCHK 



BAL 
BAL 

BAL 
CLHI 
BER 
B 



R14,SEHSTA2 

R14,CST0P 

B14,CST0PS 

83,3 

R15 

ERRJR 



;ET SELCH STATUS 



CORRECT STATUS? 

RETURN IF YES 

A PRECISE ENGLISH EBROB HESSAGE HERE 



SHP42990 
SHP43000 
SKP43010 
SHP43020 
SHP43030 
SHP«30aO 
SHP43050 
SHP43060 
SKP43070 
SMP43080 



O 
I 

O 
O 
VD 

'n 
o 
o 

w 
o 
o 



00037AI 
0003801 
000 38 41 
0003861 
0003881 
00038CI 
0003901 
0003961 
00039AI 
000 39EI 
0003A0I 



41 EO 
41E0 
3433 
063D 
5030 
41E0 
41E0 
58 50 
5550 
033F 
4300 



4000 

FF8E 



FC98 
FF42 
4000 
FC8A 
FC92 



03EAI 
=0003121 



=0000241 

=0002021 

03D0I 

=0000241 

=0000301 



4000 041CI 



310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 

326 
327 



* THIS ROUTINE CHECKS THE SELCH ENDING ADDBESSES 

* AGAINST WHAT WAS EXPECTED. 

* 

SELEND 



STOP SELCH 



BAL 


R14,CEXTD 


BAL 


R14,REEND 


EXHE 


R3,B3 


OAR 


R3,R13 


STA 


B3,ST0PADDR 


BAL 


Bi4,csrop 


BAL 


R14,SENSTA 


LDA 


R5,Sr0PADDR 


CLA 


E5,ENDBUF 


BER 


R15 


B 


ERROR 



CORRECT ENDING ADDRESS 

YES, RETURN 

AN EBBOR MESSAGE HERE 



* THIS ROUTINE CHECKS THE INTERFACE STATUS FOR 



SHP43100 
SKP43110 
SHP43120 
SHP43130 
SflP43140 
SBP43150 
SBP43160 
SBP43170 
SMP43180 
SMP43190 
SMP43200 
SBP43210 
SHP43220 
SBP43230 
SHP43240 

SHP43260 
SBP43270 



o 
I 

o 
o 

vD 
O 

o 

o 
o 



> 
I 

to 









323 


* COEBECTSESS. 










329 


*' 






0003A6I 


41 EO 4000 


03D0I 


330 


STATCHK 


BAL 


B14,SENSTA 


000 3ACI 


C330 0001 




331 




THI 


R3,X'0V 


0003B0I 


4230 4000 


041CI 


332 




BHZ 


EBBDR 


0003B6I 


41E0 4000 


03D4I 


333 




BAL 


R14,SENSTA1 


0003BCI 


C330 OOCO 




334 




THI 


R3,X'C0' 


0003COI 


4230 4000 


041CI 


335 




BKZ 


EREDR1 


0003C6I 


030F 




335 




BB 


B15 


000 3C8I 


2701 




338 


TIMOUT 


SIS 


R0,1 


0003CAI 


4230 FFFA 


=0003C8I 


339 




BMZ 


TIMOUr 


0003CEI 


030E 




340 




BB 


B14 


0003D0I 


9D13 




342 


SEHSTA 


SSR 


R1,R3 


0003D2I 


030E 




343 




BB 


B14 


000 3041 


F800 007F 


FFFF 


345 


SENSTA1 


LI 


R0,!r'7FFFFF' 


0003DAI 


9D13 




346 


SENSE1 


SSR 


H1,R3 


000 3DCI 


024E 




347 




BOS 


814 


0003DEI 


2701 




348 




SIS 


R0,1 


0003E0I 


4230 FFF6 


=0003DAI 


349 




BHZ 


SEHSE1 


0003Em 


4300 4000 


041CI 


350 




B 


ERROR 


0003EAI 


DE20 FC32 


=0000201 


352 


CEXTD 


oc 


B2,EXTD 


000 3EEI 


030E 




353 
355 


* 


BR 


B14 








356 


* THIS ROUTIHE 


IS OSED TO R 








357 


* FIBST, 


HSTN 


SHOOLD RESET 








358 


* 






OOOSFOI 


41 EO FFDC 


=0003D0I 


359 


EE»HT 


BAL 


R14, SEHSTA 


0003FUI 


C330 0020 




360 




THI 


R3,X'20' 


0003F8I 


023F 




361 




BNZB 


E15 


0003FAI 


41 EO FFD2 


=0003001 


362 




BAL 


R14, SEHSTA 


0003FEI 


C330 0010 




363 




THI 


R3,X'10* 


0001t02I 


4230 4000 


040CI 


364 




BHZ 


BEW.2 


0004081 


41 EO FFC8 


=0003041 


365 




BAL 


R14,SEHSTA1 


OOOUOCI 


41E0 FEA4 


=0002641 


366 


REH.2 


BAL 


R14.CBEW 


0004101 


41E0 FFBC 


=0003001 


367 


8EM.3 


BAL 


R14, SEHSTA 


0004141 


2042 




368 




BOS 


EEH.3 


0004161 


41 EO FFBA 


=0003041 


369 




BAL 


R14,SEHSTA1 


00041AI 


030F 




370 
371 


* 


BR 


815 




0000 041CI 




372 
373 
374 
375 


EBROR 

* 
* 
* 


EQD 


* 




0000 041CI 




376 
377 

378 


ERE0B1 

* 
* 


EQO 


* 


00041CI 


41 EO FEAC 


=0002CCI 


379 


TSTEND 


BAL 


R14,CDISA8H 


0004201 


C200 4000 


04281 


380 




LPSW 


WAin 


0004281 


0000 8000 




381 


HAITI 


Dcr 


8000 


00042CI 


0000 041CI 




38 2 




DC 


ACTSTEND) 
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IS DBITE DOT 

ICES, TELL USER 

WAIT FOR HO BOTIOH 

SEE IF AHr ERBOE STATUS BITS SET 

DETERMINE WHICH OHE 

OTHERHISE RETOEN 

DECBESENT TIMVAL 

»AIT FOR INTERRUPT 

RETURN TO ERROR IF NO IHTEHHUPT 

GET IHTERFACE STATUS 
RETURN 

TIME LIBIT 

SET IHTERFACE STATUS 
RETUBN ON NO HOTIOH 
DECEE8ENT TIBER 



BETURH 



AT BOT ALREADy 
BETURH IF YES 

NO HOTION SET 

BAIT FOR HO HOTIOH 
BEHIND THE TAPE TO BOT 

WAIT FOB TAPE TO GO IHTO HOTIOH 
WAIT FOR HO BOTIOH 

RETURN 

THE APPROPRIATE ERROB HESSAGE AHD 

HECESSARY INFORHATION TO AID THE 

USER IN DIAGHOSIHG THE PROBLEH 

IS OUTPUT HERE. 

SOME DIAGNOSING IS NECESSARY HEBE 

TO IDENTIFY THE INCORRECT STATUS BIT 

THAT IS SET. 

DISARH AHY PENDING INTERBDPTS 

PUT PROCESSOR IH WAIT STATE 



SBP43280 
SMP43290 
SHP43300 
SMP43310 
SMP43320 
SMP43330 
SSP43340 
SSP43350 
SHP43360 

SBP43380 
SBP43390 
SHP43400 

SBP43420 
SHP43430 

SfiP43450 
SHP43460 
SHP43470 
SHP43480 
SHP43490 
SBP43500 

SBP43520 
S8P43530 

SHP43550 
SHP43560 
SHP43570 
SHP43580 
SHP43590 
SBP43600 
SBP43610 
SBP43620 
SHP43630 
SHP43640 
SBP43650 
3MP43660 
SMP43670 
SMP43680 
SHP43690 
SaP43700 
SBP43710 
SBP43720 
SBP43730 
SBP43740 
SBP43750 
SBP43760 
SHP43770 
S.1P43780 
SBP43790 
SBP43800 
SHP43810 
SBP43820 



> 
I 

00 



o 
I 

o 
o 

o 
o 

O 

o 
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000U5AI 

OOOUBCI 

00046m 

00046CI 

0004741 

00047AI 

00047CI 

0004841 

00048CI 

0004941 

00049CI 

0004AOI 

0004A2I 

0004AAI 

0004B2I 

OOOUBAI 

0004C2I 

0004CAI 

0004CEI 

0004DOI 

0004D8I 

0004E0I 

0004Eai 

0004F0I 

0004F8I 

0004FAI 

000 4FCI 

000 5041 

000 50 CI 

0005141 

00051CI 

0005241 

000 52AI 

000 52CI 

0005341 

000 53CI 

000 5441 

000 54CI 

0005541 

00055AI 

00055CI 

0005641 

000 56CI 

000 5741 

000 57CI 

0005821 

0005841 

0009841 

000D84I 



4E4F 

5255 

4552 

4E20 

4654 

5445 

ODOA 

4E4F 

5255 

4552 

4E20 

ODOA 

4E4F 

5255 

4552 

4E20 

454F 

ODOA 

4E4F 

5255 

4552 

4E20 

4654 

494E 

ODOA 

4E4F 

5255 

4552 

4E20 

4654 

4420 

ODOA 

4E4F 

5255 

4552 

4E20 

4654 

4420 

ODOA 

4E4F 

5255 

4552 

4E20 

4654 

4420 

ODOA 

494E 

5420 

202D 

5045 

5354 

ODOA 



2049 4E54 

5054 2047 

4154 4544 

4255 5359 

4552 2057 



2049 4E54 
5054 2047 
4154 4544 
4E4D 544E 

2049 4E54 
5054 2047 
4154 4544 
5752 4954 
4620 

2049 4E54 

5054 2047 

4154 4544 

4E4D 544E 

4552 2052 
4420 

2049 4E54 
5054 2047 
4154 4544 
4255 5359 
4552 2052 



4552 
454E 
204F 
2041 
5249 



4552 
454E 
204F 



4552 
454E 
204F 
4520 



4552 
454E 
204F 
2041 
4557 



4552 
454E 
204F 
2041 
4541 



2049 4E54 
5054 2047 
4154 4544 
4255 5359 
4552 2052 
454F 4620 

2049 4E54 
5054 2047 
4154 4544 
4255 5359 
4552 2052 
454F 4620 

434F 5252 
5354 4154 
204E 4F20 
204D 4152 
4154 5553 



4552 
454E 
204F 
2041 
4541 



4552 
454E 
204F 
2041 
4541 



4543 
5553 
5441 
4B20 
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384 SNP4.E00 DC C'S3 IKTERBOPT GENEBATED ON BUSY AFTER WKITE' 



385 DCX ODOA 

386 SKP4.E01 DC C'KD IHTERSUPT GENERATED ON NMTN' , X' ODOA ' 



387 SHP4.E02 DC C'ND INTERRUPT GENERATED ON WRITE EDF*,X'0D0A' 



388 SMP4.E03 DC C'NO INTERRUPT GENERATED ON NHTS AFTER REMIND' 



389 DCX 

390 SHP4.E04 DC 



391 DCX 

392 SHP4.E05 DC 



393 
394 



DCX 
SNP4.E06 DC 



ODOA 

C'HO INTERRUPT GENERATED ON BUSY AFTER READ" 



ODOA 

C'NO INTERRUPT GENERATED ON BUSY AFTER HEAD EOF' 



ODOA 

C'NO INTERRUPT GENERATED ON BUSY AFTER READ EOF' 



39 5 DCX 

396 SIIP4.E07 DC 



ODOA 

C'INCORRECT STATUS 



397 WRTBUF DS 1024 

398 READBUF DS 1024 

399 END 



NO TAPE HARK STATUS' ,X' ODOA' 



ALLOCATE ENOUGH SPACE 



SHP43840 



SMP43850 
SMP43860 



SMP43870 



SNP43B80 



SHP43890 
SMP43900 



SMP43910 
SHP43920 



SMP43930 
SHP43940 



SMP43950 
SSP43960 



SHP43970 
SHP43980 
SMP43990 
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ASSEHBLED BY CAL 03-066R08-00 



(32-BIT) 



I 

Ul 



;T»BT OPTIONS: 


T=32,ERLST 


HO CAL 


ERRORS 


HO CAi 


HARKIHGS 


2 PASSES 




TABLE SPACE USED : UK 


ABSTOP 


0000 


0000 


ADC 


0000 


OOOtt 


BASE 


0000 


OOOCI 


BYTES 


0000 


00061 


CCLEAB 


0000 


02961 


CDEHS 


0000 


02A8I 


CDISARH 


0000 


02CCI 


CDISBIE 


0000 


02C6I 


CESBLE 


0000 


02C0I 


CEXTD 


0000 


03EAI 


CGO 


0000 


2DEI 


CGOBEAD 


0000 


02EIII 


CLEAB 


0000 


00101 


CBEAD 


0000 


02AEI 


CEEH 


0000 


02BIH 


CSTOP 


0000 


02D2I 


CSTOPS 


0000 


02D8I 


CUB EOF 


0000 


02BAI 


CHRITE 


0000 


029 CI 


CHHODBT 


0000 


02A2I 


DATAPAT 


0000 


00021 


OENSEITT 


0000 


00121 


DISABLE 


0000 


001AI 


DISARM 


0000 


00181 


DHIVADR 


0000 


OOOOI 


ENABLE 


0000 


00191 


ENDBOF 


0000 


00301 


ERROR 


0000 


0l»1CI 


ERROR 1 


0000 


0«1CI 


EXTD 


0000 


00201 


GO 


0000 


001CI 


60READ 


0000 


001 DI 


IKPTOP 


0000 


0D84I 


LADC 


0000 


0002 


PSH3 


0000 


OOOAI 


POBETOP 


0000 


OOOOP 


BO 


0000 


0000 


B1 


0000 


0001 


BIO 


0000 


OOOA 


R11 


0000 


OOOB 


R12 


0000 


OOOC 


R13 


0000 


OOOD 


BIK 


0000 


OOOE 



35* 


























32* 


78 


152 


272 


293 


















71 


206* 
























77 


215* 
























63 


92 


165 


200 


233* 


379 
















230* 


























7I» 


118 


136 


153 


191 


227* 
















314 


352* 
























95 


242* 
























166 


245* 
























36* 


37 


206 






















15« 


193 


218* 






















137 


221* 


36 6 






















6« 


65 


132 


133 


236* 


281 


304 


319 












239* 


305 
























119 


224* 
























82 


209* 
























81 


212* 
























30* 


69 
























38* 


39 


215 






















HH* 


45 


2301 






















l»2* 


43 


23 3 






















29* 


55 
























43* 


227 
























5H* 


252 


253 


258 


259 


284 


296 ' 


322 












86 


99 


122 


140 


157 


170 


196 


308 


324 


332 


350 


372* 




335 


376* 
























50* 


352 
























It6* 


47 


242 






















1,7* 


245 
























399 


























3a* 


67 


90 


103 


123 


145 


161 


174 


198 










399 


























13* 


83 


96 


117 


152 


167 


192 


338 


345 


348 








11»* 


55 


56 


206 


209 


212 


215 


218 


221 


224 


227 


230 


233 


3i«2 


346 
























23* 


























24* 


























25* 


56 


57 


58 


73 


116 


135 


151 


190 










26* 


60 


61 


62 


94 


164 


263 


317 












27* 


63 


64 


65 


68 


71 


74 


76 


77 


81 


82 


84 


91 


92 


95 


97 


104 


118 


119 


120 


124 


125 


132 


133 


136 


137 
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138 


146 


149 


153 


154 


155 


162 


165 


166 


168 


175 


191 


193 








194 


199 


200 


201 


207 


210 


213 


216 


219 


222 


225 


228 


231 








234 


237 


240 


243 


246 


249 


254 


260 


264 


281 


303 


304 


305 








314 


315 


319 


320 


330 


333 


340 


343 


347 


353 


359 


362 


365 








36« 


367 


36 9 


379 




















E15 


0000 


OOOF 


28* 
297 


66 
307 


75 
323 


105 
336 


106 
361 


107 
370 


128 


148 


176 


177 


178 


181 


285 


R2 


0000 


0002 


15* 
257 


59 
258 


60 
259 


236 
262 


239 
263 


242 
352 


245 


248 


250 


251 


252 


253 


256 


R3 


0000 


0003 


16* 


67 


68 


72 


73 


90 


93 


94 


103 


104 


108 


115 


116 








123 


124 


126 


134 


135 


145 


146 


150 


151 


161 


162 


163 


164 








174 


175 


179 


189 


190 


198 


199 


202 


215 


248 


262 


274 


275 








277 


282 


28 3 


306 


316 


316 


317 


318 


331 


334 


342 


346 


360 








363 


























BO 


OOOO 


000l» 


17* 


69 
























R5 


0000 


0005 


18* 
321 


85 
322 


98 


121 


139 


156 


. 169 


195 


204 


291 


292 


295 


296 


Re 


0000 


0006 


19* 


70 


110 


147 


184 


293 


294 


295 












R7 


0000 


0007 


20* 


276 


277 


278 


279 


















S8 


0000 


0008 


21* 


78 


79 


272 


273 


279 


283 


284 












89 


0000 


0009 


22* 


























RDBOF 


0000 


002CI 


53* 


256 


257 - 


292 




















BEAD 


0000 


00161 


40* 


41 


218 






















RERDBDF 


0000 


098W 


291 


398* 
























BEBUF 


0000 


03001 


149 


256* 
























RECORDS 


0000 


00081 


33* 


70 


147 






















REESD 


0000 


03121 


262* 


315 
























REH.2 


0000 


0«0CI 


364 


366* 
























REW.3 


0000 


omoi 


367* 


368 
























HEHIHD 


0000 


00171 


41* 


221 
























REHMT 


0000 


03FOI 


66 


181 


35 9* 






















SEL.1 


0000 


032AI 


277* 


280 
























S EI, ADR 


0000 


ooom 


31* 


59 
























SELCHK 


0000 


03621 


105 


176 


30 3* 






















SELEND 


0000 


037AI 


106 


177 


314* 






















SELSETR 


0000 


034AI 


148 


291* 
























SELSETW 


0000 


03181 


75 


272* 
























SEHSE1 


0000 


03DAI 


346* 


349 
























SEHSIA 


0000 


03D0I 


125 


201 


320 


330 


342* 


359 


362 


367 












SENSTA1 


0000 


03DIH 


333 


345* 


36 5 


369 




















SEHSTA2 


0000 


02EAI 


248* 


303 
























SaP4.000 


0000 


OOAEI 


30 


82* 
























SMPl».O01 


0000 


OOCAI 


72 


90* 
























S«P«.005 


0000 


OOFCI 


93 


103* 
























SHP4.006 


0000 


011EI 


110* 


























SHP<».007 


0000 


01501 


115 


123* 
























SHP«.008 


0000 


016CI 


109 


127 


132* 






















SMPlt.009 


0000 


OUOI 


134 


145* 
























SHPlt.COA 


0000 


01E2I 


150 


161* 
























SHP4.00B 


0000 


021<tl 


163 


174* 
























SHPt.OOC 


0000 


027ltl 


189 


198* 
























SHP4.019 


0000 


01AAI 


148* 


185 
























SHP4.01B 


0000 


02421 


180 


184* 
























SHP4.E00 


0000 


01*301 


85 


384* 
























SHP«.E01 


0-000 


OltSCI 


98 


386* 
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SMP4.E02 


0000 


0«7CI 


121 


387* 






SMP4.E03 


0000 


01IA2I 


139 


388* 






SHPU.EOtt 


0000 


oaooi 


156 


390* 






SHPK.EOS 


0000 


0«FCI 


169 


392* 






SBP4.E06 


0000 


052CI 


195 


394* 






SHP«.E07 


0000 


055CI 


204 


396* 






SMPL4 


0000 


00721 


71* 


111 






STATCHK 


0000 


03A6I 


107 


128 


178 


330 


STOP 


0000 


001EI 


48* 


49 


236 




STOPADDS 


0000 


002W 


51* 


313 


321 




STOPS 


0000 


001FI 


49* 


239 






TIHOUT 


0000 


03C8I 


84 


97 


120 


138 


TSTESD 


0000 


Oil CI 


182 


203 


379* 


382 


HAITI 


0000 


011281 


380 


381* 






HBUF 


0000 


00281 


52* 


250 


25t 


275 


WRBOF 


0000 


02EEI 


76 


250* 






BBEOF 


0000 


001BI 


4 5* 


224 






HBITE 


0000 


00111 


37* 


209 






WBTSOF 


0000 


osem 


274 


277 


28 2 


397 


WRTODDBY 


0000 


00151 


39* 


212 







155 



168 



194 



338* 



339 



I 



INDEX 



Autoload (AD 



2-1 



B 



Bit definitionsf status 

half words 
BYTE RTilAD operation 



CLEA'? operation 

CLR DRIVER operation 

Command byte 

description of 

operations 



D 



Data formats 

group coded recording 

(GCR) tape format 
nonreturn to zero (NRZil) 

tape format 
phase encoded ( PE ) tape 
format 
Data transfer 
Density mode 

300 bpi nonreturn to zero 

(NBZI) 
1600 bpi phase encoded (PE) 
5250 bpi group coded 
recordino (GCR) 
Density, tape 
DISABLE operation 
DISARM operation 
DMS operation 
Drive status byte 



E 

SUABLE operation 
EOF marks 
EOT status 
ERASE GAP operation 
Error recovery 
Extend the last file, 
procedure for 



2-7 
2-10 



2-10 
2-11 

2-3 
2-8 

2-10 



2-1 

2-2 

2-2 

2-2 

2-16 

2-1 

2-1 
2-1 

2-1 

1-1 

2-10 

2-10 

2-11 

2-12 



2-10 
2-14 
2-15 
2-11 
2-13 

2-14 



File mark at BOT 
Filling a bad record, 
procedure for 



GAPLESS operation 



HPMTS. See Magnetic Tape 
System 125. 



I J K 

Indicators 
Initialization 
Interrupts 

I/O programming instructions. 
See programming instructions. 



Long records 
LWR operation 



M 



Magnetic tape 

loading 

unloading 
Magnetic Tape System 125 

description of 

programming 
Maintenance, preventive 
Multitransport operations 



NOP operation 



ODD BYXFER operation 

Operating controls 

Output command (OC or OCR) 



2-12 
2-13 



2-10 



1-2 

2-16 

2-16 



2-14 
2-11 



1-6 
1-6 
1-6 
1-1 
1-1 
2-1 
1-6 
2-15 



2-11 



2-10 

1-2 

2-1 
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Ind-1 



P Q 

Part numbers 

Preventive maintenance 

Product numbers 

Programming 

Programming Instructions 
autoload (AD 

output command (OC or OCR) 
read halfword (EH or RHR) 
sense status (SS or SSR) 
write halfword (WH or WHR) 

Programming modes 

auto driver channel 
Immediate interrupts 
sense status loops 

Programming sequences 



R 



READ BKWD operation 

Read halfword (RH or RHR) 

READ operation 

Read operation at BOT 

REWIND operation 



Sample programs 

i-nmediate interrupts 
through the MUX bus 

immediate interrupts 
through the SELCH 

sense status loops through 
the HUX bus 

sense status loops through 
the SELCH 

Selector channel (SELCH) 

Sense status (SS or SSR) 

Short records 

SKIP BKWD BLOCK operation 

SKIP BKWD FILE operation 

Skip file forward 

Skip file forward from BOT 



1-1 

1-6 

1-1 

2-1 

2-1 

2-1 

2-1 

2-1 

2-1 

2-1 

2-16 

2-16 

2-16 

2-16 

2-12 



2-11 

2-1 

2-10 

2-15 

2-11 



2-17 

2-17 
A-13 

2-17 
A-19 

2-17 
R-1 

2^17 

A-7 

1-1 

2-1 

2-14 

2-10 

2-11 

2-1U 

2-13 



SKIP FHD BLOCK operation 
SKIP FWD FILE operation 
SNS operation 
Speed, tape 
Status byte 

bit definitions 

description of 

halfwords 

STC status halfword 

TELEX status halfword 
Status halfwords 
Storage Technology Corporation 
(STC) transport 

control panel 

controls and indicators 
Switching tape transport 
operations, procedure for 



Tape density 

Tape drive addresses 

Tape speed 

TELEX Corporation transport 

control panel 

controls and indicators 
TESTMODE operation 
Transports 

Storage Technology 
Corporation (STC) 

TELEX Corporation 



U V 
ONLOAD operation 

W X Y Z 

WRITE END OF FILE operation 
Write halwfword (MH or WHR) 
WRITE operation 

32-bit processors 
800 DENSITY operation 
1600 DENSITY operation 
6250 DENSITY operation 



2-10 

2-11 

2-11 

1-1 

2-3 

2-7 

2-3 

2-5 

2-6 

2-6 

2-5 

1-2 
1-3 
1-3 

2-15 



1-1 

2-16 

2-17 

1-1 

1-2 

1-U 

1-U 

2-10 

1-2 

1-2 
1-2 



2-11 



2-10 

2-1 

2-10 

1-1 
2-10 
2-10 
2-10 
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